MultiTask Exe
4 отговора
261 прегледа
MultiTask Exe
Здравейте,
как бих могъл да отворя форма от едно exe която да се появи като ново приложение в taskbar-а? Тази възможност да е "активна" само за определена от мен форма (т.е да не се отнася за всички), която да може да бъде отваряна независимо и многократно.
Благодаря!
[линк] - Пътувайте изгодно
как бих могъл да отворя форма от едно exe която да се появи като ново приложение в taskbar-а? Тази възможност да е "активна" само за определена от мен форма (т.е да не се отнася за всички), която да може да бъде отваряна независимо и многократно.
Благодаря!
[линк] - Пътувайте изгодно
Re: MultiTask Exe
1) Взимаш формата която ти трябва
2) Компилираш я до EXE (например Form.EXE)
3) От твоето EXE стартираш Form.EXE със ShellExecute или CreateProcess
чети и дишай по-леко
2) Компилираш я до EXE (например Form.EXE)
3) От твоето EXE стартираш Form.EXE със ShellExecute или CreateProcess
чети и дишай по-леко
Re: MultiTask Exe
type
TForm2 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
procedure CreateParams(var Params:TCreateParams); override;
end;
var
Form2: TForm2;
implementation
{$R *.DFM}
procedure TForm2.CreateParams(var Params:TCreateParams);
begin
inherited;
Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
Params.WndParent := GetDesktopWindow;
end;
TForm2 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
procedure CreateParams(var Params:TCreateParams); override;
end;
var
Form2: TForm2;
implementation
{$R *.DFM}
procedure TForm2.CreateParams(var Params:TCreateParams);
begin
inherited;
Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
Params.WndParent := GetDesktopWindow;
end;