Registriert seit: 17. Okt 2007
154 Beiträge
|
ShellExecute
4. Dez 2007, 20:09
Ok habe folgendes Programm unit Unit1;
Delphi-Quellcode:
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ShellAPI;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute( Handle,' open',PChar(Edit1.text), nil, nil,SW_SHOWDEFAULT);
ShellExecute( Handle,' open',PAnsiChar(Winamp.exe)
end;
end.
Und mein Proplem ist ich kann das Programm Winamp nciht öffnen hgab schon vieles auspropiert schaffe es aber nciht.
[edit=SirThornberry]Delphi-Tags gesetzt - nächstes mal bitte selbst machen - Mfg, SirThornberry[/edit]
|
|
Zitat
|