Mega Code Archive

 

Categories / Delphi / OOP

 

Programı simge haline getirmek

private simgedegiskeni:tnotifyicondata;///simge değişkeni procedure formcreate(sender:tobject); simgedegiskeni.cbsize:=sizeof(simgedeskeni); simgedegiskeni.wnd:=handle; simgedegiskeni.uID:=1; simgedegiskeni.uFLAGS:=nif_icon; simgedegiskeni.hIcon:=application.Icon.Handle; shell_notifyicon(nim_add,@ss); end; formonclose(sender:tobject); begin shell_notifyicon(nim_delete,@simgedegiskeni); end; end.