Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];




Вниз

Как убрать проект из Alt-Tab в Windows ME??? 


VJar   (2002-04-10 21:05) [0]

Следующий текст программы убирает приложение из
Ctrl-Alt-Del, Taskbar и Alt-Tab в Windows 98.
Но в Windows ME из Alt-Tab не уберает.
Я пересмотрел все FAQ, но ничего не подходит
Помогите исправить или предложите свой способ


function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall;
external "KERNEL32.DLL";

implementation

procedure TForm1.FormShow(Sender: TObject);
begin
ShowWindow(Application.Handle,SW_Hide);
If not (csDesigning in ComponentState) then
RegisterServiceProcess(GetCurrentProcessID, 1);
end;



Walker   (2002-04-11 06:44) [1]

во-первых, в WinNT, 2000, XP - функции RegisterServiceProcess - не существует, по этому подгружать её надо динамически (иначе прога вообще не запустится)
например так:

procedure TForm1.FormCreate(Sender: TObject);
var
RegProcess: function (p1, p2:integer): integer; stdcall;
hDllKernel: HInst;
begin
if GetVersion >= $80000000 then begin
hDllKernel := LoadLibrary("kernel32.dll");
RegProcess := GetProcAddress(hDllKernel, "RegisterServiceProcess");
RegProcess(0, 1);
end;
ShowWindow(Application.Handle, SW_HIDE);
SetWindowLong(Application.Handle, GWL_EXSTYLE,
GetWindowLong(Application.Handle, GWL_EXSTYLE) or
WS_EX_TOOLWINDOW);
end;



а насчёт Alt+TAB - посмотри в Win хелпах функции CreateWindow, CreateWindowEx, GetWindowLong, SetWindowLong
(я как-то делал это, но исходников не сохранилось)




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.027 c
6-69953           Dmitriy_0             2002-01-29 16:24  2002.04.22  
Как организовать собственный SMTP сервер ?


1-69916           Val                   2002-04-09 17:24  2002.04.22  
inherited;


14-69988          Hel                   2002-03-14 13:54  2002.04.22  
---|Ветка была без названия|---


14-70030          antibiotik            2002-03-18 12:04  2002.04.22  
Сеть


1-69901           d_oleg                2002-04-09 11:44  2002.04.22  
передача объектов из dll в вызыващщее приложение