uses ShlObj;function FindFolder(Handle: THandle; Title: string = '请选择文件夹路径'): string;var lpItemID: PItemIDList; BrowseInfo: TBrowseInfo; DisplayName: array[0..MAX_PATH] of char; TempPath: array[0..MAX_PATH] of char;begin Result := ''
type TStringGridRowDeletion = class helper for TStringGrid public procedure RemoveRows(RowIndex, RCount: Integer); procedure Clear; end;{ TStringGridRowDeletion } procedure TStringGridRowDeletion.Clear;var i: integer;begin for i := 0 to RowCou
此代码显示如何显示Windows断开网络驱动器对话框。 如果用户单击“确定”，则所选的网络驱动器将断开连接并返回True。如果用户取消或出现错误，则返回False。 OwnerHandle是拥有对话框的窗口的句柄。function DisconnectNetworkDriveDialog(const OwnerHandle: THandle): Boolean;begin Result := WNetDisconnectDialog( OwnerHandle, RESOURCETYPE_DISK
Example 1Execute NotePad:ShellExecute( Application.Handle, 'open', 'c:\Windows\notepad.exe', nil, nil, SW_SHOWNORMAL);Example 2Open SomeText.txt in NotePad:ShellExecute( Application.Handle, 'open', 'c:\windows\notepad
procedure TForm2.Button1Click(Sender: TObject);var H : THandle; lngReturnValue : longint; DWResult : DWORD;begin H := FindWindow('Notepad', nil); if H > 0 then begin lngReturnValue := SendMessageTimeout( H, WM_NULL, 0, 0, SMTO_AB
uses ShellAPI;function DeleteFileWithUndo(sFileName: string): boolean;var fos: TSHFileOpStruct;begin FillChar(fos, SizeOf(fos), 0); with fos do begin//delphitop.com wFunc := FO_DELETE; pFrom := PChar( sFileName ); fFlags := FOF_ALLOWUNDO o
procedure TForm1.Button3Click(Sender: TObject);var I, L: Integer;begin Memo1.WordWrap:= False; Memo1.Lines.LoadFromFile('Windows.pas'); I:= Pos('finalization', Memo1.Text); if I > 0 then begin L := SendMessage(Memo1.Handle, EM_
TList性能注意事项 本文虽然是用TList为例，但同样适用于Tstringlist,Tobjectlist等列表类。1）提取/删除列表中的元素例如,在包含65536个元素的列表中：while list.Count > 0 do List.Delete(0) //完成需要2分钟for I := List.Count-1 downto 0 do List.Delete(I) //完成时间少于1秒同样是删除65536个元素，为什么2种方法所需时间相差如此之大？因为删除项目[0]比删除项目[计数-1]