Beim Schreiben von Programmen möchten wir manchmal, um Aufwand zu sparen oder aus anderen Gründen, das Systemdialogfeld ausleihen. Wie können wir also das Systemdialogfeld aufrufen? Ein Freund ruft das Dialogfeld „Öffnen mit“ in VB wie folgt auf:
winexec(PChar('rundll32shell32,OpenAs_RunDLL'+FilePath),SW_SHOWDEFAULT);
Dieser Code wird implementiert, indem rundll32.exe ausgeführt wird und die Ressourcen in shell32.dll aufgerufen werden. Die Methode ist machbar, aber es gibt viele Anfänger wie mich, die nicht verstehen, wie man die wertvollen Ressourcen in shell32.dll aufruft.
So habe ich es genannt:
1. Rufen Sie das Systemdialogfeld „Info“ auf:
Fügen Sie zunächst SHellApi zu den Verwendungszwecken hinzu.
Schreiben Sie dann den folgenden Code:
PROcedureTForm1.Button1Click(Sender:TObject);
var
Shellapp:Variante;
beginnen
ShellAboutW(0,'Timerv1.03','kedyCopyright',1);
Ende;
Auf die weiteren Schritte werde ich nicht näher eingehen. Klicken Sie nach dem Ausführen auf die Schaltfläche und das standardmäßige WINDOWS-Dialogfeld „Info“ wird angezeigt. Das Dialogfeld trägt den Titel „Über Timerv1.03“. Wie Sie sehen, habe ich im Programm die Funktion ShellAboutW verwendet. Diese Funktion wird in MSDN2003 wie folgt beschrieben:
ShellAboutFunction
Zeigt ein ShellInfo-Dialogfeld an.
Syntax
intShellAbout(HWNDhWnd,
LPCTSTRszApp,
LPCTSTRszOtherStuff,
HICONhIcon
);
Parameter
wx
[in]Fensterhandle eines übergeordneten Fensters. Dieser Parameter kann NULL sein.
szApp
[in]Zeiger auf eine nullterminierte Zeichenfolge, die Text enthält, der im angezeigt wird
Titelleiste des Shell About-Dialogfelds und in der ersten Zeile des Dialogfelds nach dem
Text „Microsoft“. Wenn der Text ein Trennzeichen (#) enthält, das ihn in zwei Teile teilt, wird der
Die Funktion zeigt den ersten Teil in der Titelleiste und den zweiten Teil in der ersten Zeile an
nach dem Text „Microsoft“.
szOtherStuff
[in]Zeiger auf eine nullterminierte Zeichenfolge, die Text enthält, der im angezeigt wird
Dialogfeld nach der Version und den Copyright-Informationen.
hIcon
[in]Symbol, das die Funktion im Dialogfeld anzeigt. Wenn dieser Parameter NULL ist, wird die
Die Funktion zeigt das Microsoft®Windows®- oder MicrosoftWindowsNT®-Symbol an.
Ich glaube nicht, dass Sie übersetzen müssen, was es bedeutet. Es ist am besten, diese Dinge selbst zu sehen.
2. Rufen Sie den Dialog zum Herunterfahren auf
Wir müssen nur den Anfangsteil des Codes in ändern
beginnen
shellapp:=CreateOleObject('Shell.application');
shellapp.ShutDownWindows;
Ende;
Andere Teile bleiben unverändert. Führen Sie den Befehl aus und klicken Sie auf die Schaltfläche. Daraufhin wird das Standarddialogfeld zum Herunterfahren des Systems angezeigt.
Tatsächlich ist dies immer noch die Windows-API-Funktion, die Shutdownwindows aufruft.
Dieser Teil verwendet zwei Funktionen in der Methode der Windows-Shellanwendung. Zu den weiteren Funktionen der Methode gehören:
BrowseForFolder, CascadeWindows, ControlPanelItem, EjectPC, Explore, FileRun, FindComputer, FindFiles, Hilfe, MinimizeAll, NameSpace, Open, RefreshMenu, SetTime, TileHorizontally, TileVertically, TrayProperties, UndoMinimizeALL. Ich habe nur gelernt, einige dieser Funktionen zu nutzen. Weitere Informationen finden Sie im Inhalt zu Shellobject in MSDN.
Was ich am meisten sagen möchte, ist, dass Sie MSDN verwenden müssen, um Programme unter Windows zu lernen. Ich bin wirklich erstaunt über die Ressourcen in dieser Bibliothek. Sie können einen Blick darauf werfen, und ich denke, Sie werden das auch denken.