Валентин Озеров - Советы по Delphi. Версия 1.4.3 от 1.1.2001

{***************************ИНТЕРФЕЙС WINDOWS**********************************}

//Cache,Cookies,Desktop,Favorites,Fonts,Personal,Programs,SendTo,Start Menu,Startup

functionShellFolder( constfolderType: string): string;

procedurerefreshWindowsDesktop;

procedureStartbutton(visi:boolean);

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

procedureTaskBar(visi:boolean);

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

procedureclearDocuments;

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

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

procedureaddFileToDocuments( constfileName: string);

//Значение функции TRUE если мелкий шрифт

functionSmallFonts:Boolean;

{! проверить} proceduresetWallPaper( constfileName: string; tile:boolean);

{***************************МОНИТОР********************************************}

procedureRunCurrentScreenSaver;

//use application:TApplication object

proceduremonitorState(state:boolean);

{***************************КЛАВИАТУРА*****************************************}

procedureRussianKbdLayout;

procedureEnglishKbdLayout;

procedureUkrainianKbdLayout;

{***************************МЫШЬ***********************************************}

//относительные координаты в абсолютные - function ClientToScreen(Pt:TPoint):TPoint;

proceduremouseEmul(absPoint:TPoint; up,down:boolean);

proceduremouseCursor(visi:boolean);

//просимулировать нажатие клавиши мыши

{! Не проверено} procedureSendMouseClick(x,y:integer;wHandle:THandle);

{**8*************************ДИСКОВЫЕ ФУНКЦИИ**********************************}

//8FAT,FAT32,CDFS,NWCOMPA

//0-"A",1-"B",2-"C"

functionGetFileSysName(Drive : Byte) : String;

functionGetVolumeName(Drive : Byte) : String;

functionDriveExists(Drive : Byte) : Boolean;

//'?';'Path2 does not exists';'Removable';'Fixed';'Remote';'CD-ROM';'RAMDISK'

functionCheckDriveType(Drive : Byte) : String;

//Определение готовности дисковода к работе

functionDiskInDrive( constDrive: char): Boolean;

functionHDDSerialNum( constdrivePath: string{'C:\'}):integer;

{***************************CD-ROM*********************************************}

functiongetCdromPath: string;

procedureCDROMOpen;

procedureCDROMClose;

{***************************REGISTRY*******************************************}

procedureStartFromRegistry(appName,appPath: string);

//запускается до WindowsLogon

procedureStartServiceFromRegistry(appName,appPath: string);

procedureStartFromWinIni(appPath: string);

functionIsInstalled (FileExe: String): Boolean;

IMPLEMENTATION

(*

Вопрос:

Можно ли как-то уменьшить мерцание при перерисовке компонента?

Ответ:

Если добавить флаг csOpaque (непрозрачный) к свойству ControlStyle компонента - то фон компонента перерисовываться не будет.

Пример:

constructor TMyControl.Create;

begin

inherited;

//проверка "if not inIDE" должна быть вставлена в том случае, когда TMyControl - компонент

//чтобы среда IDE Delphi не глючила на этапе разработки

if not inIDE then ControlStyle := ControlStyle + [csOpaque];

end;

...

procedure Register;

begin

RegisterComponents('MyGraphics', [TMyControl]);

inIDE:=True;

end;

*)

proceduremouseCursor(visi:boolean);

VarCState:Integer;

Begin

CState:= ShowCursor(True);

ifvisi then begin

//Включение курсора

whileCState<0 doCState:=ShowCursor(True);

end else begin

//Выключение курсора

whileCstate >= 0 doCstate := ShowCursor(False);

end;

End;

//Cache,Cookies,Desktop,Favorites,Fonts,Personal,Programs,SendTo,Start Menu,Startup

functionShellFolder( constfolderType: string): string;

varregistry:TRegistry;

begin

result:='';

Registry := TRegistry.Create;

try

Registry.RootKey := HKey_Current_User;

Registry.OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders', False);

result:= Registry.ReadString(folderType);

finally

Registry.Free;

end;

end;

procedureSetWallpaper( constfileName: string;tile:boolean);

varReg: TRegIniFile;

begin

Reg:=TRegIniFile.Create('Control Panel');

Reg.WriteString('desktop', 'Wallpaper', fileName);

iftile thenReg.WriteString('desktop', 'TileWallpaper', '1')

elseReg.WriteString('desktop', 'TileWallpaper', '0');

Reg.Free;

SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, nil, SPIF_SENDWININICHANGE);