+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Pascal/Delphi (http://parsicoders.com/forumdisplay.php?fid=45)
+---- انجمن: Delphi (http://parsicoders.com/forumdisplay.php?fid=69)
+---- موضوع: سورس کد مخفی و نمایش برنامه در تسک بار (دلفی) (/showthread.php?tid=2154)
سورس کد مخفی و نمایش برنامه در تسک بار (دلفی) - Amin_Mansouri - 04-21-2012
در سورس زیر به شما اموزش میدهیم که چگونه برنامه نوشته شده با دلفی رو در تسک بار مخفی کنید و به نمایش بزارید.
با کد زیر در باتن میتونید برنامه خود رو در تسک بار ویندوز مخفی کنید.
کد:
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;