Execute the Windows Explorer Find File Dialog Box

The following example demonstrates using DDE to execute Explorer's find file dialog. The example opens the dialog in the Directory "C:\DelphiTips". ~~~~~~~~~~~~~~~~~~~~~~~~~
uses ddeman;
procedure TForm1.Button1Click(Sender: TObject) ;
begin
with TDDEClientConv.Create(Self) do begin
ConnectMode := ddeManual;
ServiceApplication := 'explorer.exe';
SetLink( 'Folders', 'AppProperties') ;
OpenLink;
ExecuteMacro
('[FindFolder(, C:\DelphiTips)]', False) ;
CloseLink;
Free;
end;
end;

About.com

Comments

Post a Comment

Popular posts from this blog

Shape a form to a bitmap

{ Fill bitmap to Form } unit Unit1; interface uses Windows, Classes, SysUtils, Graphics, Forms; type TRGBArray = array [0..32767] of TRGBTriple; PRGBArray = ^TRGBArray; type TForm1 = class (TForm) procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); private { Private declarations } FRegion: THandle; function CreateRegion(Bmp: TBitmap): THandle; end ; var Form1: TForm1; implementation {$R *.dfm} function TForm1.CreateRegion(Bmp: TBitmap): THandle; var X, Y, StartX: Integer; Excl: THandle; Row: PRGBArray; TransparentColor: TRGBTriple; begin Bmp.PixelFormat := pf24Bit; Result := CreateRectRGN(0, 0, Bmp.Width, Bmp.Height); for Y := 0 to Bmp.Height - 1 do begin Row := Bmp.Scanline[Y]; StartX := -1; if Y = 0 then TransparentColor := Row[0]; for X := 0 to Bmp.Width - 1 do begin if (Row[X].rgbtRed = TransparentColor.rgbtRed) and (Row[X].rgbtGreen = TransparentColor.rgbtGreen) and
Read more

Making the Enter Key act like Tab (Delphi Tips)

{ Delphi Tips This code gives the key the same habbit as the key to change focus between Controls. } // Form1.KeyPreview := True ! procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then begin Key := #0; { check if SHIFT - Key is pressed } if GetKeyState(VK_Shift) and $8000 <> 0 then PostMessage(Handle, WM_NEXTDLGCTL, 1, 0) else PostMessage(Handle, WM_NEXTDLGCTL, 0, 0); end ; end ; swissdelphicenter.ch
Read more