04-21-2012، 11:21 PM
در سورس زیر به شما اموزش میدهیم که چگونه برنامه نوشته شده با دلفی رو در تسک بار مخفی کنید و به نمایش بزارید.
با کد زیر در باتن میتونید برنامه خود رو در تسک بار ویندوز مخفی کنید.
برای نمایش از کد زیر استفاده کنید.
در سورس زیر اول برنامه مخفی میشه و بعد از 5 ثانیه به نمایش در میاد از تابع sleep برای وقفه استفاده شده
و اگر همچنین بخواهید با اکیتو شدن فروم برنامه در تسک بار مخفی شود از دستور زیر استفاده کنید :
با کد زیر در باتن میتونید برنامه خود رو در تسک بار ویندوز مخفی کنید.
کد:
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowWindow(Application.Handle, SW_HIDE);
end;برای نمایش از کد زیر استفاده کنید.
کد:
procedure TForm1.Button2Click(Sender: TObject);
begin
ShowWindow(Application.Handle, SW_SHOW);
end;کد:
procedure TForm1.Button3Click(Sender: TObject);
begin
ShowWindow(Application.Handle, SW_HIDE);
Hide; // hide Form1
Sleep(5000); // wait 5 seconds
Show; // show Form1
ShowWindow(Application.Handle, SW_SHOW);
end;و اگر همچنین بخواهید با اکیتو شدن فروم برنامه در تسک بار مخفی شود از دستور زیر استفاده کنید :
کد:
procedure TForm1.FormActivate(Sender: TObject);
begin
ShowWindow(Application.Handle, SW_HIDE);
end;