Delphi ShellExecute nem müködik

Ez a téma lezárásra került a moderátor által. A lezárás oka: Tud�st�r... Tud�st�r... Tud�st�r...
Delphi ShellExecute nem müködik
2012-08-20T16:10:30+02:00
2012-08-20T17:11:59+02:00
2022-10-24T20:40:35+02:00
  • Szia!

    Próbáld meg így:
    ShellExecute(nil, 'open', 'c:\totalcmd\TOTALCMD.EXE /o ', '/L=c:\a /R=c:', nil, SW_NORMAL);
    Mutasd a teljes hozzászólást!
  • Sziasztok!
    Az alábbi kis program nem működik a gépemen.
    (XP-m van és letöltöttem a POTD megoldását, de az se segített!
    Már több változatot is kipróbáltam, de nem ment azért írtam külön ezt a kis progit, de ez se működik.

    Valamit elírtam csak nem látom ?
    Ha beleteszem egy kis x.bat - fájlba, ott működik, de delphiből lefordítva nem akar elindulni.
    Segítségeteket előre is köszönöm!

    Delphi 2005-t használok.

    ... uses ShellApi; procedure OpenProgram(prog, params: string); var c, p: array[0..800] of Char; begin StrPCopy(c, prog); StrPCopy(p, params); ShellExecute(Application.Handle, 'open', c, p, nil, SW_NORMAL); end; procedure TForm1.SpeedButton1Click(Sender: TObject); var strSeged,seged2: string; begin strSeged := 'c:\totalcmd\TOTALCMD.EXE /o '; seged2:= '/L='+ 'c:\a'+' '+'/R='+'c:'; OpenProgram(strSeged,seged2); end;
    Mutasd a teljes hozzászólást!
Ez a téma lezárásra került a moderátor által. A lezárás oka: Tud�st�r... Tud�st�r... Tud�st�r...
Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd