Форум: "Основная";
Текущий архив: 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
(я как-то делал это, но исходников не сохранилось)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c