function GetFlashDisks: TStrings;var buf: array[0..MAX_PATH - 1] of Char; M_Result: Integer; i: Integer; tmpStr: string;begin Result := TStringList.Create; M_Result := GetLogicalDriveStrings(MAX_PATH, buf); for i := 0 to (M_Result div 4) do begin
function GetHDCode(Drv: string): string;var VolumeSerialNumber: DWORD; MaximumComponentLength: DWORD; FileSystemFlags: DWORD;begin if Drv[Length(Drv)] = ':' then Drv := Drv + '\'; GetVolumeInformation(Pchar(Drv), nil, 0, @VolumeSe
uses System.Win.ComObj,ActiveX;function CheckComObj(progID: string): Boolean;var myGuid: TGUID;begin Result := False; try OleCheck(CLSIDFromProgID(Pchar(progID), myGuid)); if IsEqualGUID(myGuid, GUID_NULL) = False then Result := True; exce
uses Registry;function ReadRegisry(RegKey: string; Default: string; MyRootKey: Hkey; MyOpenKey: string): string;var Registry: TRegistry; s: string;begin Registry := TRegistry.Create; try begin Registry.RootKey := MyRootKey; // HKEY_CURRENT_US
procedure RunPro(ProName: string); // 打开一个文件begin ShellExecute(Application.Handle, 'open', Pchar(ProName), nil, nil, SW_SHOWNORMAL);end;
uses System.Win.ComObj;procedure OpenInIE(url: string);var IE: OleVariant;begin // IE := CoInternetExplorer.Create; // IE.Visible := True; // IE.Navigate2(url); IE := CreateOleObject('InternetExplorer.Application'); IE.visible := True; IE.
function Join(mylist: TStrings; seperatorStr: string): string;var i: Integer;begin Result := string.Empty; for i := 0 to mylist.Count - 1 do begin Result := Result + mylist[i]; if i < mylist.Count - 1 then Result := Result + ' '
function GetText(strtxt:string;iLen:integer):string;begin//先判断要截取的字符串最后一个字节的类型//如果为汉字的第一个字节则减(加)一位if ByteType(strtxt,iLen) = mbLeadByte then iLen := iLen - 1;result := copy(strtxt,1,iLen) + ’...‘;end;