(Gast)
n/a Beiträge
|
Re: Programm starten durch button
16. Feb 2007, 19:40
hör doch mal auf den compiler. was sagt er? das er shellexecute nicht kennt?
binde bei uses noch die shellapi ein.
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ShellAPI;
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.
|
|
Zitat
|