Die Windows-Dialoge, die Microsoft vergaß zu dokumentieren
Die meisten von uns haben diese Dialoge in Windows gesehen und die meisten ms-Programme hier ist eine Möglichkeit, die meisten davon in Kontakt treten:
1) Exit Windows-Dialogfeld angezeigt, wenn Sie Startmenü und wählen Sie Herunterfahren gehen. der Handle-Parameter wird nicht verwendet in Windows NT auf Windows 95 Sie erhalten eine WM_QUIT in Wndproc, jedoch wenn Sie ein Ereignis in OnCloseQuery weisen tun.
Prozedur ExitWindowsDialog(Handle: THandle); Stdcall; externe 'shell32.dll' Index 60; API-Deklaration
Beispiel-Verwendung:
Prozedur TForm1.Button1Click(Sender: TObject);
beginnen
ExitWindowsDialog(Handle);
Ende;
2) Neustart Windows-Dialogfeld wird dargestellt, wann immer eine breite Systemänderung (meist mit Fahrer), der Flags-Parameter das Handle verwendet wird, um den Besitzer des Fensters die Ursache zu kennen ist eine Zeichenfolge Wich im Dialog angezeigt wird (Tipp: Verwenden Sie ein Carriage return, um Text in Zeilen aufteilen) die Flags entsprechen einem ExitWindowsEx oder ExitWindows Flag (sie beginnen die meisten mit EW_XXX oder EWX_XXX)
Funktion RestartWindowsDialog (Handle: THandle; Grund: PChar; Flaggen: Integer): Integer; Stdcall; externe 'shell32.dll' Index 59;
Beispiel-Verwendung:
Prozedur TForm1.Button2Click(Sender: TObject);
beginnen
RestartWindowsDialog (behandeln, PCHAR ('ME DIO LA GANA'), EW_RESTARTWINDOWS);
Ende;
3)Kommissionierung ein Dialogfeld Symbol dargestellt ist wann immer Sie wollen, ein Symbol in der Windows-Umgebung auswählen, Dateiname gibt den Dateinamen von wo zum Extrahieren von Symbolen, Filenamesize ist die Länge der Zeichenfolge (in der Regel Length(Filename) Filename AsString vorausgesetzt), IconIndex ist eine Variable Wich erhält die Iconindex im Dialogfeld ausgewählt. der Rückgabewert der Funktion ist wahr, wenn der Dialog erfolgreich ist und die Schaltfläche ok ist ausgewählten, false, wenn die Schaltfläche 'Abbrechen' gedrückt wird
Funktion PickIconDialog (Handle: THandle; FileName:PChar; FileNameSize:integer; Var IconIndex:integer): Boolean; Stdcall; externe 'shell32.dll' Index 62;
Beispiel-Verwendung:
Prozedur TForm1.Button3Click(Sender: TObject);
var
IconIndex: Integer;
beginnen
Wenn PickIconDialog (Handle, PChar('shell32.dll'), Length('shell32.dll'), IconIndex) dann
ShowMessage ('Selecciono' + IntTOStr(IconIndex));
Ende;
4) ausführen Datei-Dialog wird ausgeführt, wenn Sie im Startmenü wählen Sie ausführen und ist auch in Windows Mediaplayer und InternetExplorer zu sehen. Hier ist die api, die es tun werden
Prozedur RunDialog (Handle: THandle; Symbol: HIcon; Verzeichnis: PChar; Titel: PChar; Beschreibung: PChar; Flaggen: Integer); Stdcall; externe 'shell32.dll' Index 61;
Beispiel-Verwendung:
Prozedur TForm1.Button4Click(Sender: TObject);
beginnen
RunDialog (Handle, Icon.Handle, PCHAR('C:'), PCHAR ('auswählen, die Datei verdammt'),
PCHAR ('), REF_NOBROWSE oder REF_NODEFAULT oder REF_CALCDIRECTORY);
Ende;
in diesem Dialogfeld verwendet die folgenden Konstanten
const
REF_NOBROWSE = 1; Deaktivieren der Schaltfläche 'Durchsuchen'
REF_NODEFAULT = 2;
REF_CALCDIRECTORY = 4; Berechnen Sie das Verzeichnis, basierend auf dem Eigentümer Weg
REF_NOLABEL = 8; Keine Bezeichnung Beschreibung
REF_NOSEPARATEMEM = $20; Keine Sepated-Speicher-Checkbox (nur NT)
für den Fall, dass Sie verwenden NT ersetzen alle Pchar von PWChar
Dies ist es von jetzt in meinem nächsten Artikel ich Objektwrapper für diese Funktionen erstellen, finden Sie den Wrapper für das Dialogfeld 'ausführen' sehr nützlich
Windows-Systeme-Dialoge
Windows-Systeme-Dialoge : Mehreren tausend Tipps, um Ihr Leben einfacher machen.
Die Windows-Dialoge, die Microsoft vergaß zu dokumentieren
Die meisten von uns haben diese Dialoge in Windows gesehen und die meisten ms-Programme hier ist eine Möglichkeit, die meisten davon in Kontakt treten:
1) Exit Windows-Dialogfeld angezeigt, wenn Sie Startmenü und wählen Sie Herunterfahren gehen. der Handle-Parameter wird nicht verwendet in Windows NT auf Windows 95 Sie erhalten eine WM_QUIT in Wndproc, jedoch wenn Sie ein Ereignis in OnCloseQuery weisen tun.
Prozedur ExitWindowsDialog(Handle: THandle); Stdcall; externe 'shell32.dll' Index 60; API-Deklaration
Beispiel-Verwendung:
Prozedur TForm1.Button1Click(Sender: TObject);
beginnen
ExitWindowsDialog(Handle);
Ende;
2) Neustart Windows-Dialogfeld wird dargestellt, wann immer eine breite Systemänderung (meist mit Fahrer), der Flags-Parameter das Handle verwendet wird, um den Besitzer des Fensters die Ursache zu kennen ist eine Zeichenfolge Wich im Dialog angezeigt wird (Tipp: Verwenden Sie ein Carriage return, um Text in Zeilen aufteilen) die Flags entsprechen einem ExitWindowsEx oder ExitWindows Flag (sie beginnen die meisten mit EW_XXX oder EWX_XXX)
Funktion RestartWindowsDialog (Handle: THandle; Grund: PChar; Flaggen: Integer): Integer; Stdcall; externe 'shell32.dll' Index 59;
Beispiel-Verwendung:
Prozedur TForm1.Button2Click(Sender: TObject);
beginnen
RestartWindowsDialog (behandeln, PCHAR ('ME DIO LA GANA'), EW_RESTARTWINDOWS);
Ende;
3)Kommissionierung ein Dialogfeld Symbol dargestellt ist wann immer Sie wollen, ein Symbol in der Windows-Umgebung auswählen, Dateiname gibt den Dateinamen von wo zum Extrahieren von Symbolen, Filenamesize ist die Länge der Zeichenfolge (in der Regel Length(Filename) Filename AsString vorausgesetzt), IconIndex ist eine Variable Wich erhält die Iconindex im Dialogfeld ausgewählt. der Rückgabewert der Funktion ist wahr, wenn der Dialog erfolgreich ist und die Schaltfläche ok ist ausgewählten, false, wenn die Schaltfläche 'Abbrechen' gedrückt wird
Funktion PickIconDialog (Handle: THandle; FileName:PChar; FileNameSize:integer; Var IconIndex:integer): Boolean; Stdcall; externe 'shell32.dll' Index 62;
Beispiel-Verwendung:
Prozedur TForm1.Button3Click(Sender: TObject);
var
IconIndex: Integer;
beginnen
Wenn PickIconDialog (Handle, PChar('shell32.dll'), Length('shell32.dll'), IconIndex) dann
ShowMessage ('Selecciono' + IntTOStr(IconIndex));
Ende;
4) ausführen Datei-Dialog wird ausgeführt, wenn Sie im Startmenü wählen Sie ausführen und ist auch in Windows Mediaplayer und InternetExplorer zu sehen. Hier ist die api, die es tun werden
Prozedur RunDialog (Handle: THandle; Symbol: HIcon; Verzeichnis: PChar; Titel: PChar; Beschreibung: PChar; Flaggen: Integer); Stdcall; externe 'shell32.dll' Index 61;
Beispiel-Verwendung:
Prozedur TForm1.Button4Click(Sender: TObject);
beginnen
RunDialog (Handle, Icon.Handle, PCHAR('C:'), PCHAR ('auswählen, die Datei verdammt'),
PCHAR ('), REF_NOBROWSE oder REF_NODEFAULT oder REF_CALCDIRECTORY);
Ende;
in diesem Dialogfeld verwendet die folgenden Konstanten
const
REF_NOBROWSE = 1; Deaktivieren der Schaltfläche 'Durchsuchen'
REF_NODEFAULT = 2;
REF_CALCDIRECTORY = 4; Berechnen Sie das Verzeichnis, basierend auf dem Eigentümer Weg
REF_NOLABEL = 8; Keine Bezeichnung Beschreibung
REF_NOSEPARATEMEM = $20; Keine Sepated-Speicher-Checkbox (nur NT)
für den Fall, dass Sie verwenden NT ersetzen alle Pchar von PWChar
Dies ist es von jetzt in meinem nächsten Artikel ich Objektwrapper für diese Funktionen erstellen, finden Sie den Wrapper für das Dialogfeld 'ausführen' sehr nützlich
