გამარჯობათ კეთილო პროგრამისტები!
მაქვს შემდეგი ორი კითხვა:
კითხვა ნომერი პირველი : მოცემული ფუნქციის გამოყენებით ვახერხებ იმას, რომ გავაქრო საათი
:
////////////////////////////////
function ShowTrayClock(bValue: Boolean) : Boolean;
var
TrayWnd, TrayNWnd, ClockWnd: HWND;
begin
TrayWnd := FindWindow('Shell_TrayWnd', nil);
TrayNWnd := FindWindowEx(TrayWnd, 0, 'TrayNotifyWnd', nil);
ClockWnd := FindWindowEx(TrayNWnd, 0, 'TrayClockWClass', nil);
Result := IsWindow(ClockWnd);
if Result then
begin
ShowWindow(ClockWnd, Ord(bValue));
PostMessage(ClockWnd, WM_PAINT, 0, 0);
end;
end;
///////////////////////////////////////
საათი კი ქრება, მაგრამ საქმე იმაშია, რომ საათის ადგილზე რჩება ცარიელი ადგილი, მე კი მინდა რომ არც ის ცარიელი ადგილი დარჩეს, ვინმემ რამე იცით????
კითხვა ნომერი ორი: ყველასათვის ნაცნობია ალბათ ისეთი რამ, რასაც Always On Top ქვია, მე ამის საპირისპირო რამე მჭირდება, მინდა, რომ ჩემი ფორმა მუდამ უკან დარჩეს, ანუ ასე ვთქვათ დესკტოპს მიეწებოს... იქნებ ამ საკითხში რამე მირჩიოთ???
მოკლედ ველი თქვენს იდეებს! წინასწარ მადლობა!
Delphi -ს ლომებო მომეხმარეთ!, ორი კითხვა მცოდნეებს
