Arsip: Minimize Seluruh Windows Internet Explorer


by LuriDarmawan in Internet more 14 years ago 1669
ingin meminimize seluruh windows 'Internet Explorer' ?
bukan hal yang susah kok.
boleh gunakan kode ini:
procedure TForm1.Button1Click(Sender: TObject);
var
IExplorer, Prev: THandle;
begin
Prev:=0;
IExplorer:=FindWindow('IEFrame', nil);
while (IExplorer <> 0) and (IExplorer <> Prev) do
begin
SendMessage(IExplorer,WM_SYSCOMMAND,SC_MINIMIZE,0);
Prev:=IExplorer;
IExplorer:=FindWindow('IEFrame',nil);
end;
end;
Syntax Highlighted with https://pascal-id.org/syntax


Referensi:
http://www.greatis.com/delphicb/tips/lib/forms-mininet.html
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com