|
.:: FAQ pack
number one ::.
|
1 Как из программы вызвать Notepad и заставить
его открыть нужный файл?
2 Как вывести окно свойств компьютеpа?
3 Как в дельфи переместить указатель мыши
в нужную точку экрана
4 Как сделать EXE маленьким
5 Как написать в Delphi процедуру, которая
бы выполняла задержку времени
6 Функция занесения в строковую переменную
пути моей программки
7 Получить каталог Windows или системный
8 Как выдвинуть дверцу CD-ROM'а?
9 Атрибуты файла.
10 Как спрятать и показать TaskBar?
11 Как спрятать и показать кнопку Пуск?
Как из программы вызвать Notepad и заставить его открыть
нужный файл?
WinExec('notepad.exe d:\txt.txt',sw_show);
или
shellexecute(form1.ParentWindow,'open','d:\txt.txt',0,0,sw_show);
Как вывести окно свойств компьютеpа?
WinExec('rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl
',sw_show);
Как в дельфи переместить указатель мыши в нужную точку экрана
mouse_event(MOUSEEVENTF_move,0,10,0,GetMessageExtraInfo);
больше я ни чего не смог сделать.
SetCursorPos(x,y);
Как сделать EXE маленьким
Project-> Option->Packages->Build with runtime
packages Уменьшает ровно в два раза. Но тогда программа
не будет работать если не установлена Delphi.
Как написать в Delphi процедуру, которая бы выполняла задержку
времени
Такая процедура уже есть. Вот она: Sleep(миллисекунды);
Функция занесения в строковую переменную пути моей программки
Если нужен путь exe-шника то-> ExtractFileName(Application.ExeName);
Если путь до exe-шника (т.е. не включая имя exe-шника) то
ExtractFilePath(Application.ExeName);
Получить каталог Windows или системный
{Windows}
procedure TForm1.Button1Click(Sender: TObject);
var nsize: Cardinal;
ch : array[0..1000] of Char;
begin
nSize := GetWindowsDirectory(ch, MAX_PATH);
Label1.Caption:=ch;
end;
то же самое только GetSystemDirectory->папка System
Как выдвинуть дверцу CD-ROM'а?
{Выдвинуть}
procedure TForm1.CloseCD(CD:char);
var ID:integer;
OpenParm:Mci_Open_Parms;
Flags : DWord;
S:string;
begin
S:=CD+':';
Flags:=Mci_Open_Type or Mci_Open_Element;
OpenParm.dwCallback:=0;
OpenParm.lpstrDeviceType:='CDAudio';
OpenParm.lpstrElementName:=PChar(S);
mciSendCommand(0, mci_Open,Flags, Longint(@OpenParm));
ID:=OpenParm.wDeviceID;
mciSendCommand(ID, MCI_SET, MCI_SET_DOOR_CLOSED, 0);
end;
{Закрыть}
procedure TForm1.OpenCD(CD:char);
var ID:integer;
OpenParm:Mci_Open_Parms;
Flags : DWord;
S:string;
begin
S:=CD+':';
Flags:=Mci_Open_Type or Mci_Open_Element;
OpenParm.dwCallback:=0;
OpenParm.lpstrDeviceType:='CDAudio';
OpenParm.lpstrElementName:=PChar(S);
mciSendCommand(0, mci_Open,Flags, Longint(@OpenParm));
ID:=OpenParm.wDeviceID;
mciSendCommand(ID, MCI_SET, MCI_SET_DOOR_OPEN, 0);
end;
Атрибуты файла.
FileGetAttr(FileName);-> считать аттрибут
FileSetAttr(FileName);-> установить аттрибут
Как спрятать и показать ТаскБар?
procedure TForm1.Button1Click(Sender: TObject);
var H:HWND ;
begin
H:=FindWindow('Shell_TrayWnd',0); //находим хандл окна
таскбара
ShowWindow(H, SW_HIDE);//делаем его невидимым
Sleep(2000);
ShowWindow(H, SW_SHOW);//делаем его видимым
end;
Как спрятать и показать кнопку Пуск?
procedure TForm1.Button1Click(Sender: TObject);
var hTaskBar,hButton:HWND ;
begin
HTaskBar:=FindWindow('Shell_TrayWnd',0); //находим хандл
окна таскбара
hButton:=GetWindow(hTaskBar, GW_CHILD);
ShowWindow(HButton, SW_HIDE);//делаем кнопку невидимой
Sleep(2000);
ShowWindow(HButton, SW_SHOW);//делаем кнопку видимой
end;
end.
|
