Hi,
ersteinmal möchte ich sagen, dass ich kein Programmierer bin und lediglich ein kleines Programm mit Delphi basteln möchte, das auch .exe Dateien starten können soll. Ich habe wirklich nicht viel Ahnung vom Programmieren. Daher habe ich mir von der Seite
www.delphi-treff.de den Easy Delphi Helper heruntergeladen, der eine Befehlsübersicht besitzt.
Dort habe ich folgenden Befehl gefunden:
Delphi-Quellcode:
procedure ExecuteFile(const AFilename: String;
AParameter, ACurrentDir: String; AWait: Boolean);
var
si : TStartupInfo;
pi : TProcessInformation;
begin
if Length(ACurrentDir) = 0 then begin
ACurrentDir := ExtractFilePath(AFilename);
if ACurrentDir[Length(ACurrentDir)] = '' then
Delete(ACurrentDir, Length(ACurrentDir), 1);
end;
FillChar(si, SizeOf(si), 0);
with si do begin
cb := SizeOf(si);
dwFlags := STARTF_USESHOWWINDOW;
wShowWindow := SW_NORMAL;
end;
FillChar(pi, SizeOf(pi), 0);
if Length(AParameter) = 0 then
AParameter := Format('"%s"', [AFilename])
else
AParameter := Format('"%s" %s', [AFilename, AParameter]);
if CreateProcess(Nil, PChar(AParameter), Nil, Nil, False,
CREATE_DEFAULT_ERROR_MODE or CREATE_NEW_CONSOLE or
NORMAL_PRIORITY_CLASS, Nil, PChar(ACurrentDir), si, pi) then
begin
try
if AWait then WaitForSingleObject(pi.hProcess, INFINITE);
finally
CloseHandle(pi.hProcess);
CloseHandle(pi.hThread);
end;
end;
end;
Ich habe das einfach in die Unit1 reinkopiert.
Ich möchte, dass wenn ich auf einen Button drücke, ein Programm gestartet wird.
Was muss ich bei diesem Button eingeben, um dies zu erreichen?
[edit=Luckie]Delphi-Tags ergänzt. Beim nächsten mal bitte sleber machen. Danke. Mfg, Luckie[/edit]