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

begin
 //Положение курсора мыши задается в "абсолютных" координатах ("Mickeys"),
 //где 65535 "Mickeys" равно ширине экрана.
 absPoint.x := Round(absPoint.x * (65535 / Screen.Width));
 absPoint.y := Round(absPoint.y * (65535 / Screen.Height));
 {Переместим курсор мыши}
 Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, absPoint.x, absPoint.y, 0, 0);
 if down then Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, absPoint.x, absPoint.y, 0, 0);
 if up then Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, absPoint.x, absPoint.y, 0, 0);
end;

//просимулировать нажатие клавиши мыши
procedure SendMouseClick(x,y:integer;wHandle:THandle);
begin
 sendmessage(wHandle, WM_LBUTTONDOWN, MK_LBUTTON, x+(y shl 16));
 sendmessage(wHandle, WM_LBUTTONUP, MK_LBUTTON, x+(y shl 16));
 application.processMessages;
end;

procedure monitorState(state:boolean);
begin
 if state then SendMessage(Application.Handle, wm_SysCommand, SC_MonitorPower, -1)
 else SendMessage(Application.Handle, wm_SysCommand, SC_MonitorPower, 0);
end;

procedure execWait(const comLine:string);
var
 si:Tstartupinfo;
 p:Tprocessinformation;
begin
 fillChar(Si, SizeOf(Si), 0);
 with Si do begin
 cb := SizeOf(Si);
 dwFlags := startf_UseShowWindow;
 wShowWindow := 4;
 end;
 Createprocess(nil, pChar(comLine), nil, nil, false, Create_default_error_mode, nil, nil, si, p);
 Waitforsingleobject(p.hProcess, infinite);
end;

procedure shellExec(const fileName:string);
begin
 shellExecute(0, Nil, pChar(fileName), Nil, Nil, SW_NORMAL);
end;

procedure Delay(msecs : DWORD);
var
 FirstTick : DWORD;
begin
 FirstTick:=GetTickCount;
 repeat
 Application.ProcessMessages;
 until GetTickCount-FirstTick >= msecs;
end;

function HDDSerialNum(const drivePath:string{'C:\'}):integer;
var
 SerialNum:Pdword;
 a,b:Dword;
 buffer:array [0..255] of char;
begin
 result:=0;
 new(SerialNum);
 if getVolumeInformation(pChar(drivePath), buffer, sizeof(buffer), SerialNum, a, b, nil, 0) then result:=SerialNum^;
 Dispose(SerialNum);
end;

//фактически определяется запущена ли сейчас среда Delphi
function isDelphiRunning:boolean;
var H1, H2, H3, H4 : Hwnd;
const
 A1 : array[0..12] of char = 'TApplication'#0;
 A2 : array[0..15] of char = 'TAlignPalette'#0;
 A3 : array[0..18] of char = 'TPropertyInspector'#0;
 A4 : array[0..11] of char = 'TAppBuilder'#0;
begin
 result:=false;
 H1 := FindWindow(A1, nil);
 H2 := FindWindow(A2, nil);
 H3 := FindWindow(A3, nil);
 H4 := FindWindow(A4, nil);
 if (H1 <> 0) and (H2 <> 0) and (H3 <> 0) and (H4 <> 0) then result:=true;
end;

function getCdromPath:string;
var
 w:dword;
 Root:string;
 i:integer;
begin
 result:='';
 w:=GetLogicalDrives;
 Root := '#:\';
 for i := 0 to 25 do begin