Registriert seit: 17. Sep 2006
Ort: Hamburg
12 Beiträge
Delphi 7 Enterprise
|
Re: Programm starten durch button
16. Feb 2007, 19:33
Also..... ich dreh durch
Code:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure MyShellExecute(Path: String);
begin
ShellExecute(Application.Handle, //anzeige eines Fehlers
'open', PChar(Path),
'', Nil, SW_ShowNormal);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
MyShellExecute('D:\Programme\Teamspeak2_RC2\TeamSpeak.exe');
end;
end.
tut mir leid aber was ist daran jetzt noch falsch...
|
|
Zitat
|