Mój problem polega na tym że nie wiem gdzie mam błąd w programie.
Programik powinien otwierać plik ArmyOps.exe z parametrami z pola edit1.
Z rejestru powinno pobrać ścieżkę do pliku która wygląda nestępująco:
C:/Program Files/America's Army/
a plik ArmyOps.exe jest w
C:/Program Files/America's Army/System/ArmyOps.exe
Proszę o pomoc.
Źródełko:
unit UnitForma;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TRunForma = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
RunForma: TRunForma;
s : string;
implementation
{$R *.dfm}
uses Registry, ShellApi;
procedure TRunForma.FormCreate(Sender: TObject);
var
reg : TRegistry;
begin
try
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKey('SOFTWARE\US Army\America''s Army\Operations',False);
s := reg.ReadString('Installdir');
finally
reg.Free;
end;
end;
procedure TRunForma.Button1Click(Sender: TObject);
begin
ShellExecute(handle,'open',Pchar(s+'System\ArmyOps.exe'+Edit1.Text), nil,nil, SW_SHOW);
end;
end.
//kod umieszczaj w tagu <delphi> - m.M