hi,
wie versteckt man einen bildschirmchoner vor der taskbar?
das hier.....
<pre>
program Marlem;
uses
Forms,
windows,
sysutils,
Unit2 in 'Unit2.pas' {Form2},
FrmMain in 'FrmMain.pas' {Form1};
{$E scr}
{$R *.RES}
var Param: String;
// Window: HWND;
begin
Param := copy(upperCase(paramstr(1)),1,2);
if Param = '/C' then begin
//nur Einstellungsformular erzeugen bei paramter /C
Application.Initialize;
Application.CreateForm(TForm2, Form2);
Showwindow(Application.handle, SW_Hide); //Applacation fenster verbergen
Application.Run;
end;
if Param = '' then begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Showwindow(Application.handle, SW_Hide); //Applacation fenster verbergen
Application.Run;
end;
if Param = '/S' then begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Showwindow(Application.handle, SW_Hide); //Applacation fenster verbergen
Application.Run;
end;
if Param = '/P' then begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Form1.ParentWindow := StrToInt(ParamStr(2));
Showwindow(Application.handle, SW_Hide); //Applacation fenster verbergen
Application.Run;
end;
end.
</pre>
juckt ihn einfach nicht!
gruß
markus
wie versteckt man einen bildschirmchoner vor der taskbar?
das hier.....
<pre>
program Marlem;
uses
Forms,
windows,
sysutils,
Unit2 in 'Unit2.pas' {Form2},
FrmMain in 'FrmMain.pas' {Form1};
{$E scr}
{$R *.RES}
var Param: String;
// Window: HWND;
begin
Param := copy(upperCase(paramstr(1)),1,2);
if Param = '/C' then begin
//nur Einstellungsformular erzeugen bei paramter /C
Application.Initialize;
Application.CreateForm(TForm2, Form2);
Showwindow(Application.handle, SW_Hide); //Applacation fenster verbergen
Application.Run;
end;
if Param = '' then begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Showwindow(Application.handle, SW_Hide); //Applacation fenster verbergen
Application.Run;
end;
if Param = '/S' then begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Showwindow(Application.handle, SW_Hide); //Applacation fenster verbergen
Application.Run;
end;
if Param = '/P' then begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Form1.ParentWindow := StrToInt(ParamStr(2));
Showwindow(Application.handle, SW_Hide); //Applacation fenster verbergen
Application.Run;
end;
end.
</pre>
juckt ihn einfach nicht!
gruß
markus
Comment