Avatar billede athlon-pascal Juniormester
16. oktober 2001 - 16:08 Der er 2 kommentarer og
1 løsning

Starte program med destination angivet i registreringsdatabasen

Hvordan starter man et program hvis destination er angivet i registreringsdatabasen?

Hvis der f.eks.under \"HKEY_CURRENT_USER/Software/MitProgram\" i registreringsdatabasen er en strengværdi med indholdet \"c:\\programmer\\MitProgram\\MitProgram.exe\", hvordan hiver man så dette frem i et program der starter det progam der er angivet direkte i registreringsdatabasen?

Jeg har prøvet med WinExec, men kunne ikke få det til at virke.

Håber at nogle vil hjælpe...

(Jeg har Delphi 4 Standard)

P.S. Jeg kan ikke garantere for at jeg er på nettet hver dag, men jeg vil gøre hvad jeg kan.
Avatar billede speedy Nybegynder
16. oktober 2001 - 16:16 #1
uses Registry;

procedure Start;
var
  Reg: TRegistry;
  Filnavn: String;
begin
  Reg := TRegistry.Create;
  Reg.Rootkey := HKEY_CURRENT_USER;
  Reg.OpenKey(\'Software/MitProgram\', true);
  Filnavn := Reg.ReadString(\'filnavn\');
  WinExec(PChar(Filnavn), 1);
  Reg.CloseKey;
end;

Så kører du bare proceduren Start når du vil køre programmet



/SpEeDy
Avatar billede speedy Nybegynder
16. oktober 2001 - 16:41 #2
ups, overså en ting :)

procedure Start;
var
  Reg: TRegistry;
  Filnavn: String;
begin
  Reg := TRegistry.Create;
  Reg.Rootkey := HKEY_CURRENT_USER;
  Reg.OpenKey(\'Software\\MitProgram\', false);
  Filnavn := Reg.ReadString(\'filnavn\');
  ShowMessage(Filnavn);
  WinExec(PChar(Filnavn), 1);
  Reg.CloseKey;
end;

linien  Reg.OpenKey(\'Software/MitProgram\', false);
skulle være:  Reg.OpenKey(\'Software\\MitProgram\', false);


/SpEeDy
Avatar billede ziron Nybegynder
17. oktober 2001 - 03:46 #3
det kan også laves med et shellexecute:

procedure TForm1.Button1Click(Sender: TObject);
var
reg : TRegIniFile;
fil : String;
begin
reg := TRegIniFile.Create;
reg.RootKey := HKEY_CURRENT_USER;
fil := reg.ReadString(\'Software\\MitProgram\', \'strengværdi\', \'\');
reg.Free;

ShellExecute(Handle, \'OPEN\', PChar(fil), nil, nil, SW_SHOW);
end;

HUSK at tilføje \"ShellAPI\" og \"Registry\" til Uses.

/ZIRON
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester