- Geri Bátyó: Megint tahó voltam – SZEMÉLYISÉGFEJLŐDÉS
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Luck Dragon: Asszociációs játék. :)
- bambano: Bambanő háza tája
- btz: Internet fejlesztés országosan!
- sziku69: Fűzzük össze a szavakat :)
- Elektromos rásegítésű kerékpárok
- gban: Ingyen kellene, de tegnapra
- votlage71: Kábel menedzsment
- droidic: Időutazás floppyval: A 486-os visszavág PCem-men
Új hozzászólás Aktív témák
-
zka67
őstag
Szia, ezt próbáld ki, nekem működik:
function Execute(FileName, Params : string; Show : integer = SW_HIDE) : boolean;
var
SEInfo: TShellExecuteInfo;
ExitCode: DWORD;
begin
FillChar(SEInfo, SizeOf(SEInfo), 0) ;
SEInfo.cbSize := SizeOf(TShellExecuteInfo) ;
with SEInfo do begin
fMask := SEE_MASK_NOCLOSEPROCESS;
Wnd := Application.Handle;
lpFile := PChar(FileName) ;
lpParameters := PChar(Params);
nShow := Show;
end;
if ShellExecuteEx(@SEInfo) then begin
repeat
Application.ProcessMessages;
GetExitCodeProcess(SEInfo.hProcess, ExitCode) ;
until (ExitCode <> STILL_ACTIVE) or Application.Terminated;
Result := true;
end
else begin
ShowMessage('Program file not found!') ;
Result := false;
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Execute('acrord32', 'filename.pdf', SW_NORMAL);
end;
Új hozzászólás Aktív témák
- BESZÁMÍTÁS! ASRock Z370 i7 9700KF 16GB DDR4 512GB SSD RX 7600 XT 16GB ZALMAN I3 NEO ADATA 600W
- LG 32GR93U-B - 32" IPS - UHD 4K - 144Hz 1ms - NVIDIA G-Sync - FreeSync Premium - HDR 400
- Fém, összecsukható és kihúzható fotó állvány eladó
- Gamer Notebook! Lenovo Ideapad Gaming3! I7 10750H / GTX 1650Ti / 8GB DDR4 / 256GB SSD
- LG 55B4 - 55" OLED - 4K 120Hz 1ms - NVIDIA G-Sync - FreeSync Premium - HDMI 2.1 - PS5 és Xbox Ready
Állásajánlatok
Cég: FOTC
Város: Budapest