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

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

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

function DiskInDrive(const Drive: char): Boolean;

function HDDSerialNum(const drivePath:string{'C:\'}):integer;

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

function getCdromPath:string;

procedure CDROMOpen;

procedure CDROMClose;

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

procedure StartFromRegistry(appName,appPath:string);

//запускается

до WindowsLogon

procedure StartServiceFromRegistry(appName,appPath:string);

procedure StartFromWinIni(appPath:string);

function IsInstalled (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;

*)

procedure mouseCursor(visi:boolean);

Var CState:Integer;

Begin

 CState:= ShowCursor(True);

 if visi then begin

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

while CState<0 do CState:=ShowCursor(True);

 end else begin

//Выключение

курсора

while Cstate >= 0 do Cstate := ShowCursor(False);

 end;

End;

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

function ShellFolder(const folderType:string):string;

var registry: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;

procedure SetWallpaper(const fileName:string;tile:boolean);

var Reg: TRegIniFile;

begin

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

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

 if tile then Reg.WriteString('desktop', 'TileWallpaper', '1')

 else Reg.WriteString('desktop', 'TileWallpaper', '0');

 Reg.Free;

 SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, nil, SPIF_SENDWININICHANGE);

end;

{procedure setWallPaper(fileName:string);

begin

 SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, pChar(fileNAme), 0);

end;}

procedure refreshWindowsDesktop;

begin

 SendMessage(FindWindow('Progman', 'Program Manager'), WM_COMMAND, $A065, 0);

end;

procedure mouseEmul(absPoint:TPoint; up,down:boolean);