Verwenden Sie Delphi, um ein minimales ausführbares Programm zu generieren. Ich habe einmal im Internet gesehen, dass Delphi eine Win32-Anwendung mit einer Größe von nur 16 KB generieren kann. Die Größe der ausführbaren Datei, die ich selbst geschrieben habe, beträgt etwa 17 KB kann den Code wahrscheinlich nur in diesem Ausmaß optimieren. Kürzlich habe ich dieses Programm zu Testzwecken neu geschrieben und festgestellt, dass die Dateigröße mit einigen Techniken weiter auf 8,5 KB reduziert werden kann. Dieses Programm zeigt auch eine andere Seite von Delphi als Nicht-RAD-Tool, ähnlich wie Visual C++. Wenn Sie interessiert sind, hier ist, wie ich es gemacht habe. Verwenden Sie Delphi, um ein Standardprojekt zu generieren, und verwenden Sie dann die Schaltfläche „Datei aus PRoject entfernen“ in der Symbolleiste, um das einzige Formular (Form1) aus dem Projekt zu löschen. Wählen Sie dann den Befehl „Ansicht->Projektquelle“, öffnen Sie die Projektdatei und bearbeiten Sie den Code wie folgt: program MiniApp;uses Windows, Messages;// {$R *.res}const szAppName : PChar = 'MiniApp';function WndProc (AWnd :HWND; message:UINT; wp:WPARAM; lp:LPARAM):LRESULT;stdcall;begin Ergebnis := 0; WM_DESTROY: PostQuitMessage(0); else Result := DefWindowProc(AWnd, message, wp, lp); end;end;var wc : WNDCLASS; HMainWnd : HWND; beginnen mit wc do begin style := CS_VREDRAW ; lpfnWndProc := @WndProc; cbClsExtra := 0; cbWndExtra := LoadIcon(0, IDI_application); hbrBackground := HInstance; lpszClassName := szApp Name; Ende; RegisterClass(wc); HMainWnd := CreateWindow(szAppName, szAppName, WS_OVERLAPPEDWINDOW, Integer(CW_USEDEFAULT), Integer(CW_USEDEFAULT), Integer(CW_USEDEFAULT), Integer(CW_USEDEFAULT), HWND_DESKTOP, 0, HInstance, nil); CmdShow); UpdateWindow(HMainWnd); while GetMessage(AMsg, 0, 0) do begin TranslateMessage(AMsg);