#104912 · 8 Dec 2002, 18:05 · · პროფილი · პირადი მიმოწერა · ჩატი
ამ პრგორამის გაშვებას არ გირჩევ შენს კომპიუტერზე. მუშაობს win95/98/2000/NT XP-ზე არ მისინჯია წესით უნდა გაქაჩოს.win95/98 ეკიდება და ვერ ითიშება, win2000/NT კი ვერ ამთავრებს.
პროგრამა რომ გაიგო საჭიროა იცოდე :Delphi, ოოპ და WinAPI.
მაშ ასე, ამ კოდს რომელსაც ეხლა მოვიყვან თვითონ არსი project-ში,მაგრამ შენ ჩაამატებ მითითებულ სტრიქონებს:
(ეს იმიტომ რომ არ გამოჩნდეს Alt+Tab-ში და TasBar-ში)
program Project1;
uses Forms, Windows, // ჩაემატება ეს
Unit1 in 'Unit1.pas' {Form1};
{$R *.RES}
var ExtendedStyle : integer; //ეს
begin
Application.Initialize;
ExtendedStyle:=GetWindowLong(application.Handle, GWL_EXSTYLE); //ეს
SetWindowLong(Application.Handle, GWL_EXSTYLE, ExtendedStyle or //და ეს WS_EX_TOOLWINDOW);
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
(აი ეს კი იმიტომ რომ არ გამოჩნდეს Ctrl+Alt+Tab-ით):
function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall;
external 'KERNEL32.DLL';
implementation
procedure TForm1.Button1Click(Sender: TObject);
begin //Hide
if not (csDesigning in ComponentState) then
RegisterServiceProcess(GetCurrentProcessID, 1);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin //Show
if not (csDesigning in ComponentState) then
RegisterServiceProcess(GetCurrentProcessID, 0);
end;
მაგრამ იყავი ფრთხილად:)
და ვინ იძახოდა რომ არ შეიძლება ნებისმიერი ნებისმიერ ოპ-ში (win95/98/2000/NT და გონი XP-ც პროსტა არ გამისინჯია) ამის განხორციელება.
და ერთმა საერთოდ მოხია რომელიღაც post-ში, რომ 98-ში უფრო ძნელია ვიდრე სერვერებზეო, ტკულია და დაჟე პირიქითაა, იმიტომ რომ სერვერი ჩალიჩის საშუალებას არ გაძლევს(პერეხვატები), ნუ ყოველ შემთხვევაში არ უნდა რომ მოგცეს.
|