Форум: "Основная";
Поиск по всему сайту: 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.02 c
14-70016          Lego                  2002-03-16 02:15  2002.04.22  
Как выключить вообще комбинацию клавиш ALT + F4?


1-69790           Lame1                 2002-04-10 12:24  2002.04.22  
Чтение записей из файла


3-69735           Ежик                  2002-04-01 13:30  2002.04.22  
Как програмно посчитать кол-во записей в БД?


1-69854           dimonf                2002-04-08 21:40  2002.04.22  
Народ, подскажите, как распечатать график сформированный Chart?


3-69667           ghost_by              2002-03-30 20:21  2002.04.22  
Interbase: Maximum user count exceeded.