Utilisez Delphi pour générer un programme exécutable minimal. J'ai vu un jour quelqu'un sur Internet dire que Delphi pouvait générer une application Win32 d'une taille de seulement 16 Ko. La taille du fichier exécutable que j'ai écrit moi-même était d'environ 17 Ko, j'ai donc deviné Delphi. ne peut probablement optimiser le code que dans cette mesure. Récemment, j'ai réécrit ce programme à des fins de test et j'ai découvert qu'en utilisant certaines techniques, la taille du fichier pouvait être encore réduite à 8,5 Ko. Ce programme montre également une autre facette de Delphi en tant qu'outil non RAD similaire à Visual C++. Si cela vous intéresse, voici comment j'ai procédé. Utilisez Delphi pour générer un projet par défaut, puis utilisez le bouton Supprimer le fichier du projet dans la barre d'outils pour supprimer le seul formulaire (Form1) du projet. Sélectionnez ensuite la commande Affichage->Source du projet, ouvrez le fichier du projet et modifiez le code comme suit : programme MiniApp ; utilise Windows, Messages ;// {$R *.res}const szAppName : PChar = 'MiniApp';fonction WndProc (AWnd :HWND; message:UINT; wp:WPARAM; lp:LPARAM):LRESULT;stdcall;begin Résultat := 0; WM_DESTROY : PostQuitMessage(0); else Résultat := DefWindowProc(AWnd, message, wp, lp); end;end;var wc : WNDCLASS; AMsg : MSG ; commencer par wc do start style := CS_VREDRAW ou CS_HREDRAW ; lpfnWndProc := @WndProc; cbClsExtra := 0; cbWndExtra := 0; hIcon := LoadIcon(0, IDI_application); hCursor := LoadCursor(0, IDC_ARROW); hbrBackground := GetSysColorBrush(COLOR_WINDOW); hInstance := HInstance; fin; RegisterClass(wc); HMainWnd := CreateWindow(szAppName, szAppName, WS_OVERLAPPEDWINDOW, Integer(CW_USEDEFAULT), Integer(CW_USEDEFAULT), Integer(CW_USEDEFAULT), Integer(CW_USEDEFAULT), HWND_DESKTOP, 0, HInstance, nul); CmdShow); UpdateWindow(HMainWnd); tandis que GetMessage(AMsg, 0, 0, 0) commence TranslateMessage(AMsg);