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

• #2011 Keeperv85 nagyúr

  Új Válasz 2015-07-13 18:19:30 #2011

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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