Action := caFree.
Action := caFree, (N.B. : Pour MDIChild val par défault
Action := caMinimize). Sorry if my English is bad.
Action := caFree.
Action := caFree, (N.B. : Pour MDIChild val par défault
Action := caMinimize)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionprogram Luncher; {*$APPTYPE CONSOLE} uses Windows, SysUtils; var HTaskbar: HWND; OldVal: LongInt; procedure HideTaskBar; begin // Find handle of TASKBAR HTaskBar := FindWindow('Shell_TrayWnd', nil); // Turn SYSTEM KEYS off, Only Win 95/98/ME SystemParametersInfo(97, Word(True), @OldVal, 0); // Disable the taskbar EnableWindow(HTaskBar, False); // Hide the taskbar ShowWindow(HTaskbar, SW_HIDE); end; procedure ShowTaskBar; begin //Find handle of TASKBAR HTaskBar := FindWindow('Shell_TrayWnd', nil); //Turn SYSTEM KEYS Back ON, Only Win 95/98/ME SystemParametersInfo(97, Word(False), @OldVal, 0); //Enable the taskbar EnableWindow(HTaskBar, True); //Show the taskbar ShowWindow(HTaskbar, SW_SHOW); end; procedure LunchApp(const App: string); var start: TStartUpInfo; ProcessInfo: TProcessInformation; begin FillChar(Start, Sizeof(Start), #0); start.cb := SizeOf(start); if CreateProcess(nil, PChar(App), nil, nil, False, NORMAL_PRIORITY_CLASS, nil, nil, start, ProcessInfo) then try WaitForSingleObject(ProcessInfo.hProcess, INFINITE); finally CloseHandle(ProcessInfo.hProcess); CloseHandle(ProcessInfo.hThread); end; end; begin HideTaskBar; try LunchApp('.\AppTest.exe'); finally ShowTaskBar; end; end.
finalization is ALLWAYS called, even when the program crashesben ... c'est pareil ... c'est non !
initialization
finalization
Application.Initialize;du dpr du project
11 août 2014 à 11:47
th'x for your reply
if you have an exemple will make me very happy
i don't know the methode how to insert this command and it's declaration !!
and about your english you are so good .
with best kind of regards: Bravesaw
11 août 2014 à 12:02
Else you can insert a command in end of event OnClose. For the exemple I not have this. :-(.
11 août 2014 à 12:59
really in begining i was have a bad emotion that no one Can reply to my questions due to my english Questions, and your reply tell to me first and all members here second and for All Visitors that you wellcome for all your questions while we can understanding your language ....
finally i wish you the best of the best in your life and god bless you
bestregards: BraveSaw from BraveMouse.