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

Функции собрал Артем Федюк (Киев, 27.11.2000)E-Mail: xartrain@hotmail.comсообщите, пожалуйста о найденных ошибках*)

{H+}//use huge strings

unit XWindows;

INTERFACE

uses classes, windows, shellApi, shlobj, sysUtils, forms, mmsystem, controls, Messages, Registry, IniFiles;

{***************************ПРОЦЕССЫ И УПРАВЛЕНИЕ ИМИ**************************}

procedure execWait(const comLine:string);

procedure shellExec(const fileName:string);

//также можно использовать Sleep(ms:DWORD);

procedure Delay(msecs : DWORD);

//фактически определяется запущена ли сейчас среда Delphi

function isDelphiRunning:boolean;

function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external 'KERNEL32.DLL';

procedure applicationInCtrlAltDelList(visi:boolean);

procedure applicationInTaskBar(visi:boolean);

//Запретить/разрешить Ctrl-Alt-Del

procedure CtrlAltDel(state:boolean);

//Окно без закладки в TaskBar

procedure noAppInTaskbar;

//Определение какие приложения уже запущены

procedure ApplicationList(formHandle:THandle; var stringList:TStringList);

{***************************ВРЕМЯ**********************************************}

function SetTime(DateTime:TDateTime):Boolean;

//обновить часы - SendMessage(HWND_TOPMOST,WM_TIMECHANGE,0,0);

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

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

function ShellFolder(const folderType:string):string;

procedure refreshWindowsDesktop;

procedure Startbutton(visi:boolean);

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

procedure TaskBar(visi:boolean);

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

procedure clearDocuments;

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

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

procedure addFileToDocuments(const fileName:string);

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

function SmallFonts:Boolean;

{! проверить}procedure setWallPaper(const fileName:string; tile:boolean);

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

procedure RunCurrentScreenSaver;

//use application:TApplication object

procedure monitorState(state:boolean);

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

procedure RussianKbdLayout;

procedure EnglishKbdLayout;

procedure UkrainianKbdLayout;

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

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

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

procedure mouseCursor(visi:boolean);