Советы по Delphi. Версия 1.4.3 от 1.1.2001

Озеров Валентин

procedure CtrlAltDel(state:boolean);

var old:Boolean;

begin

 old:=True;

 if state then

//Восстановить

SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, @old, 0)

 else

//Убрать

SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, @old, 0);

end;

procedure StartButton(visi:boolean);

Var

 Tray, Child : hWnd;

 C : Array[0..127] of Char;

 S : String;

Begin

 Tray := FindWindow('Shell_TrayWnd', NIL);

 Child := GetWindow(Tray, GW_CHILD);

 While Child <> 0 do Begin

If GetClassName(Child, C, SizeOf(C)) > 0 Then Begin

S := StrPAS(C);

If UpperCase(S) = 'BUTTON' then begin

If Visi then ShowWindow(Child, 1)

else ShowWindow(Child, 0);

end;

End;

Child := GetWindow(Child, GW_HWNDNEXT);

 End;

End;

//убрать/показать TaskBar

procedure TaskBar(visi:boolean);

begin

 if visi then ShowWindow(FindWindow('Shell_TrayWnd', nil), SW_SHOW) //

Показать Taskbar

 else ShowWindow(FindWindow('Shell_TrayWnd', nil), SW_HIDE); //Скрыть TaskBar

end;

procedure applicationInCtrlAltDelList(visi:boolean);

begin

 if visi then begin

//Show

RegisterServiceProcess(GetCurrentProcessID, 0);

 end else begin

//Hide

RegisterServiceProcess(GetCurrentProcessID, 1);

 end;

end;

procedure applicationInTaskBar(visi:boolean);

begin

 if visi then windows.ShowWindow(FindWindow(nil, @Application.Title[1]), SW_SHOW)

 else windows.ShowWindow(FindWindow(nil, @Application.Title[1]), SW_HIDE);

end;

procedure RussianKbdLayout;//На

русский

var Layout: array[0..KL_NAMELENGTH] of char;

begin

 LoadKeyboardLayout(StrCopy(Layout, '00000419'), KLF_ACTIVATE);

end;

procedure EnglishKbdLayout;//На английский

var Layout: array[0..KL_NAMELENGTH] of char;

begin

 LoadKeyboardLayout(StrCopy(Layout, '00000409'), KLF_ACTIVATE);

end;

procedure UkrainianKbdLayout;//На украинский

var Layout: array[0..KL_NAMELENGTH] of char;

begin

 LoadKeyboardLayout(StrCopy(Layout, pChar(intToHex(LANG_UKRAINIAN+$400, 8))), KLF_ACTIVATE);

end;

//запустить текущий ScreenSaver

procedure RunCurrentScreenSaver;

begin

 SendMessage(Application.Handle, WM_SYSCOMMAND, SC_SCREENSAVE, 0);

end;

//очистить меню "Документы"

procedure clearDocuments;

begin

 SHAddToRecentDocs(SHARD_PATH, nil);

end;

//добавить документ в меню 'Документы'

// Для данного файла должно быть зарегистрировано средство просмотра

procedure addFileToDocuments(const fileName:string);