[Amin_Mansouri]

در سورس زیر به شما اموزش میدهیم که چگونه برنامه نوشته شده با دلفی رو در تسک بار مخفی کنید و به نمایش بزارید.

با کد زیر در باتن میتونید برنامه خود رو در تسک بار ویندوز مخفی کنید.

کد:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowWindow(Application.Handle, SW_HIDE);
end;

برای نمایش از کد زیر استفاده کنید.

کد:

procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowWindow(Application.Handle, SW_SHOW);
end;

در سورس زیر اول برنامه مخفی میشه و بعد از 5 ثانیه به نمایش در میاد از تابع sleep برای وقفه استفاده شده

کد:

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;