Mega Code Archive

 

Categories / Delphi / Examples

 

Windows systems dialogs

The windows dialogs that microsoft forgot to document Most of us have seen these dialogs in windows and most ms programs here is a way to get in touch with most of these: 1) Exit windows Dialog presented when you go to start menu and select shutdown. the handle parameter is unused in windows NT on windows 95 you get a WM_QUIT in the wndproc, however if you assign an event in OnCloseQuery will do. procedure ExitWindowsDialog(Handle: THandle); stdcall; external 'shell32.dll' index 60; //API declaration Sample use: procedure TForm1.Button1Click(Sender: TObject); begin ExitWindowsDialog(Handle); end; 2) Restart windows dialog is presented whenever a system wide change (mostly with drivers), the flags parameter the handle is used to know the owner of the window the reason is a string wich is shown in the dialog (hint: use a carriage return to break text into lines) the flags correspond to any ExitWindowsEx or ExitWindows flag (they start most with EW_XXX or EWX_XXX) function RestartWindowsDialog(Handle: THandle; Reason: PChar; Flags: Integer): Integer; stdcall; external 'shell32.dll' index 59; Sample use: procedure TForm1.Button2Click(Sender: TObject); begin RestartWindowsDialog(Handle, PCHAR('ME DIO LA GANA'), EW_RESTARTWINDOWS); end; 3)Picking an icon dialog is the one shown whenever u want to select an icon in the windows environment, filename specifies the filename from where to extract icons, filenamesize is the length of the string (typically Length(Filename) assuming Filename as string), IconIndex is a variable wich receives the iconindex selected in the dialog. the return value of the function is true if the dialog is successful and the ok button is selected, false if the cancel button is pressed function PickIconDialog(Handle:THandle; FileName:PChar; FileNameSize:integer;var IconIndex:integer):Boolean; stdcall; external 'shell32.dll' index 62; Sample use: procedure TForm1.Button3Click(Sender: TObject); var IconIndex: Integer; begin if PickIconDialog(Handle, PChar('shell32.dll'), Length('shell32.dll'), IconIndex) then ShowMessage('Selecciono ' + IntTOStr(IconIndex)); end; 4) Run file dialog is executed whenever you select start menu execute, and is also seen in windows media player and internet explorer. here is the api that will do the trick procedure RunDialog(Handle: THandle; Icon: HIcon; Directory: PChar; Title: PChar; Description: PChar; Flags: Integer); stdcall; external 'shell32.dll' index 61; Sample use: procedure TForm1.Button4Click(Sender: TObject); begin RunDialog(Handle, Icon.Handle, PCHAR('C:'), PCHAR('SELECT THAT DAMNED FILE'), PCHAR(''), REF_NOBROWSE or REF_NODEFAULT or REF_CALCDIRECTORY); end; this dialog uses the following constants const REF_NOBROWSE = 1; //Disable browse button REF_NODEFAULT = 2; REF_CALCDIRECTORY = 4; //calculate the directory based on the owners path REF_NOLABEL = 8; //No description label REF_NOSEPARATEMEM = $20; //No sepated memory checkbox (NT Only) in case you use NT replace all pchar by PWChar This is it by now in my next article I will create object wrappers for these functions, you will find the wrapper for the run dialog very useful