Thema: Delphi Finde keinen Fehler

Einzelnen Beitrag anzeigen

Benutzerbild von TheMiller
TheMiller

Registriert seit: 19. Mai 2003
Ort: Gründau
2.480 Beiträge
 
Delphi XE7 Architect
 
#1

Finde keinen Fehler

  Alt 20. Mai 2003, 18:40
Hey Leute,
bin gleich mit den Nerven am Ende! Möchte ein Programm per Knopfdruck mit ShellExecute öffnen, wobei der Pfad für die Datei aus einer InI kommt. habe schon einmal Hilfe angefort und bekam eine Antwort, dass ich dem DateiPfad eine Variable geben soll, welche dann in Shell Execute angegeben wird.

uses ShellAPI;
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);

var Pfad : String;
    Ini : TIniFile;
begin
Ini := TIniFile.create('C:\a.ini');
Try
Pfad := Ini.readstring('1','1',text);
Finally
FreeAndNil(ini);
ShellExecute(Handle, nil, 'Pfad', nil, nil, SW_SHOW);


end;
end;
end.
Das ist mein Code

Finde den Fehler nicht. Datei existiert, Prog startet, aber bei Klick auf Button tut sich nix...

Danke im Vorraus
  Mit Zitat antworten Zitat