Új hozzászólás Aktív témák

  • Keeperv85

    nagyúr

    Sziasztok!

    Igaz nem Delphi, hanem Lazarus, de a probléma valahonnan közös gyökérről eredhet. Nagyon egyszerű dolgot szeretnék, adott egy kis kép, kattintás eseményben indítsa el az alkalmazásom.

    var
    Registry: TRegistry;
    path: string;
    begin
    Registry:=TRegistry.Create(KEY_READ);
    Registry.RootKey:=HKEY_LOCAL_MACHINE;
    if Registry.OpenKey('SOFTWARE\Bethesda Softworks\FalloutNV', False) then
    begin
    path := Registry.ReadString('Installed Path');
    SysUtils.ExecuteProcess(UTF8ToSys(path+'FalloutNV.exe'), '', []);
    end
    else
    MessageDlg('The selected key does not exist', mtError, [mbOK], 0);
    Registry.Free;
    end;

    Ennyi és nem több. Na most addig minden szép és jó, hogy megtalálja a fájlt, elindítja, látom, hogy a kezdő fekete képernyő betölt. Aztán összeomlik az indított exe...

    Nem tudom mi tévő legyek, mert a ShellExecute hívással is ugyan ezt csinálja... :(

Új hozzászólás Aktív témák