Danke für den super tipp
leider kriege ich es nicht hin,
obwohl ich den beispielcode komplet übernommen habe :/
(weder auf windows vista ultimate x64 oder xp prof. sp2 x86 (vm) )
habe es auch unter delphi 7 kompiliert das hilft auch nicht
hier min
qc
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, madkernel, 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 TForm1.Button1Click(Sender: TObject);
var name:
string;
begin
Name := '
foobar2000.exe';
Process(
Name).TrayIcons.Hide;
MessageBox(0, pchar('
"' + Process(
Name).Exefile + '
"'), '
', 0);
Process(
Name).TrayIcons.Show;
end;
end.
die error meldung habe ich als bild angehangen