Пример:

var 
               Flash : bool; 
             procedure TForm1.Timer1Timer(Sender: TObject); 
             begin 
               FlashWindow(Form1.Handle, Flash); 
               FlashWindow(Application.Handle, Flash); 
               Flash := not Flash; 
             end; 
             procedure TForm1.FormCreate(Sender: TObject); 
             begin 
              Flash := False; 
             end; 

Какой самый быстрый способ для очистки canvasа?

Windows API функция

PatBlt().

Пример:

procedure TForm1.Button1Click(Sender: TObject); 
             begin 
               PatBlt(Form1.Canvas.Handle, 
                      0, 
                      0, 
                      Form1.ClientWidth, 
                      Form1.ClientHeight, 
                      WHITENESS); 
             end; 

Как спрятать и отключить кнопку "Пуск"?

Приведенный пример прячет и показывает кнопку "Пуск", а также разрешает и запрещает ее.

Пример:

            procedure TForm1.Button1Click(Sender: TObject); 
             var 
               Rgn : hRgn; 
             begin 
              {Cпрятать кнопку "Пуск"} 
               Rgn := CreateRectRgn(0, 0, 0, 0); 
               SetWindowRgn(FindWindowEx(FindWindow('Shell_TrayWnd', nil), 
                                                    0, 
                                                   'Button', 
                                                    nil), 
                                                    Rgn, 
                                                    true); 
             end; 
             procedure TForm1.Button2Click(Sender: TObject); 
             begin 
              {Показать кнопку "Пуск"} 
               SetWindowRgn(FindWindowEx(FindWindow('Shell_TrayWnd', nil), 
                                                    0, 
                                                   'Button', 
                                                    nil), 
                                                    0, 
                                                    true); 
             end; 
             procedure TForm1.Button3Click(Sender: TObject); 
             begin 
              {Запретить кнопку "Пуск"} 
               EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil), 
                                                    0, 
                                                    'Button', 
                                                    nil), 
                                                    false); 
             end; 
             procedure TForm1.Button4Click(Sender: TObject); 
             begin 
              {Разрешить кнопку "Пуск"} 
               EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil), 
                                                    0, 
                                                    'Button', 
                                                    nil), 
                                                    true); 
             end 

Как временно отключить перерисовку окна?

Вызовите функцию WinAPI LockWindowUpdate передав ей дескриптор окна, которое необходимо не обновлять. Передайте ноль в качестве параметра для восстановления нормального обновления.

LockWindowUpdate(Memo1.Handle); 
               . 
               . 
               LockWindowUpdate(0); 

Можно ли отключить кнопку закрытия любого окна?

Да, приведенный пример отключает кнопку закрытия и пункт "закрыть" ситсемного меню заданного окна.

  procedure TForm1.Button1Click(Sender: TObject); 
             var 
               hwndHandle : THANDLE; 
               hMenuHandle : HMENU; 
             begin 
               hwndHandle := FindWindow(nil, 'Untitled - Notepad'); 
               if (hwndHandle  0) then begin 
                 hMenuHandle := GetSystemMenu(hwndHandle, FALSE); 
                 if (hMenuHandle  0) then 
                   DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND); 
               end; 
             end; 

Как узнать путь к каталогам Windows?

Следующий пример получает полный список каталогов по умолчанию (Favorites, Desktop, Programs, Fonts, SendTo, Start, Menu, Templates, Startup, Recent and NetHood) Windows и заносит его в Memo.

Пример:

             uses Registry; 
             procedure TForm1.Button1Click(Sender: TObject); 
             var 
               reg : TRegistry; 
               ts : TStrings; 
               i : integer; 
             begin 
               reg := TRegistry.Create; 
               reg.RootKey := HKEY_CURRENT_USER; 
               reg.LazyWrite := false; 
               reg.OpenKey( 'Software\Microsoft\Windows\CurrentVersion\
               Explorer\Shell Folders', false); 
                 ts := TStringList.Create; 
                 reg.GetValueNames(ts); 
                 for i := 0 to ts.Count -1 do begin 
                   Memo1.Lines.Add(ts.Strings[i] + 
                                   ' = ' + 
                                   reg.ReadString(ts.Strings[i])); 
                 end; 
                 ts.Free; 
               reg.CloseKey; 
               reg.free; 
             end; 

Как сделать родительское окно с фоновым рисунком в клиентской области?

Для того чтобы сделать это выполните следующие шаги:

Содайте новый проект.

Установите FormStyle формы в fsMDIForm

Разместите Image на форме и загрузите в него картинку.

Найдите { Private Declarations } в обьявлении формы и добаьте следующие строки:

                 FClientInstance : TFarProc;
                 FPrevClientProc : TFarProc; 
                 procedure ClientWndProc(var Message: TMessage);  

Добаьте следующие строки в разделе implementation:

             procedure TMainForm.ClientWndProc(var Message: TMessage); 
             var 
               Dc : hDC; 
               Row : Integer; 
               Col : Integer; 
             begin 
               with Message do 
                 case Msg of 
                   WM_ERASEBKGND: 
                   begin 
                     Dc := TWMEraseBkGnd(Message).Dc; 
                   for Row := 0 to ClientHeight div Image1.Picture.Height do 
                   for Col := 0 to ClientWidth div Image1.Picture.Width do 
                         BitBlt(Dc, 
                            Col * Image1.Picture.Width, 
                            Row * Image1.Picture.Height, 
                            Image1.Picture.Width, 
                            Image1.Picture.Height, 
                            Image1.Picture.Bitmap.Canvas.Handle, 
                            0, 
                            0, 
                            SRCCOPY); 
                       Result := 1; 
                   end; 
                   else 
                     Result := CallWindowProc(FPrevClientProc, 
                                              ClientHandle, 
                                              Msg, 
                                              wParam, 
                                              lParam); 
               end; 
             end; 

В методе формы OnCreate добавьте:

                FClientInstance := MakeObjectInstance(ClientWndProc); 
                FPrevClientProc := Pointer(GetWindowLong(ClientHandle, 
                                           GWL_WNDPROC)); 
                SetWindowLong(ClientHandle, 
                              GWL_WNDPROC, LongInt(FClientInstance)); 

Добавьте к проекту новую форму и установите ее свойство FormStyle в fsMDIChild. У Вас получился MDI-проект с "обоями" в клиентской области MDI формы.

Как запускать мою программу на каждом старте Windows?

Пример работает и для Win32и для Win16.

             uses 
               Registry, {For Win32} 
               IniFiles; {For Win16} 
             {$IFNDEF WIN32} 
               const MAX_PATH = 144; 
             {$ENDIF} 
             {For Win32} 
             procedure TForm1.Button1Click(Sender: TObject); 
             var 
               reg: TRegistry; 
             begin 
               reg := TRegistry.Create; 
               reg.RootKey := HKEY_LOCAL_MACHINE; 
               reg.LazyWrite := false; 
               reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', 
                           false); 
               reg.WriteString('My App', Application.ExeName); 
               reg.CloseKey; 
               reg.free; 
             end; 
             {For Win16} 
             procedure TForm1.Button2Click(Sender: TObject); 
             var 
               WinIni : TIniFile; 
               WinIniFileName : array[0..MAX_PATH] of char; 
               s : string; 
             begin 
               GetWindowsDirectory(WinIniFileName, sizeof(WinIniFileName)); 
               StrCat(WinIniFileName, '\win.ini'); 
               WinIni := TIniFile.Create(WinIniFileName); 
               s := WinIni.ReadString('windows', 
                                      'run', 
                                      ''); 
               if s = '' then 
                 s := Application.ExeName else 
                 s := s + ';' + Application.ExeName; 
               WinIni.WriteString('windows', 
                                  'run', 
                                  s); 
               WinIni.Free; 
             end; 

Как очистить пункт документы меню кнопки Пуск

Вызовите Windows API функцию SHAddToRecentDocs() передав nil вместо имени файла в качестве параметра.

Пример:

             uses 
               ShlOBJ; 
             procedure TForm1.Button1Click(Sender: TObject); 
             begin 
               SHAddToRecentDocs(SHARD_PATH, nil); 
             end; 

Как узнать является диск CD-диском,сетевым диском, виртуальным диском или сьемным диском?

Windows API функция GetDriveType().

Пример:

procedure TForm1.Button1Click(Sender: TObject); 
       begin 
       case GetDriveType('C:\') of 
     0 : ShowMessage('The drive type cannot be determined'); 
     1 : ShowMessage('The root directory does not exist'); 
       DRIVE_REMOVABLE:ShowMessage('The disk can be removed'); 
       DRIVE_FIXED    : ShowMessage('The disk cannot be removed'); 
       DRIVE_REMOTE   : ShowMessage('The drive is remote (network) drive'); 
       DRIVE_CDROM    : ShowMessage('The drive is a CD-ROM drive'); 
       DRIVE_RAMDISK  : ShowMessage('The drive is a RAM disk'); 
      end; 
     end; 

Как получить дескриптор панели задач (TaskBar)?

hTaskbar := FindWindow('Shell_TrayWnd', Nil )

Как спрятать TaskBar?

Вначале необходимо вызвать функцию FindWindow(), чтобы определить handle TaskBar. Затем вызвите функцию ShowWindow(), передав ей в качестве параметра костанту SW_HIDE.

Пример:

             procedure TForm1.Button1Click(Sender: TObject); 
             var 
               hTaskBar : THandle; 
             begin 
               hTaskbar := FindWindow('Shell_TrayWnd', Nil); 
               ShowWindow(hTaskBar, SW_HIDE); 
             end; 
             procedure TForm1.Button2Click(Sender: TObject); 
             var 
               hTaskBar : THandle; 
             begin 
               hTaskbar := FindWindow('Shell_TrayWnd', Nil); 
               ShowWindow(hTaskBar, SW_SHOWNORMAL); 
             end; 

Как с помощью Проводника открыть конкретный каталог?

Пример:

             uses ShellApi; 
             procedure TForm1.Button1Click(Sender: TObject); 
             begin 
               ShellExecute(0, 
                            'explore', 
                            'C:\WINDOWS', 
                            nil, 
                            nil, 
                            SW_SHOWNORMAL); 
             end; 

Запуск приложения

WinExec('C:\WINDOWS\CONTROL.EXE', sw_ShowNormal); 

Как открыть URL браузером, установленным по умолчанию?

Используйте функцию ShellExecute.

Пример:

             uses ShellAPI; 
             procedure TForm1.Button1Click(Sender: TObject); 
             begin 
               ShellExecute(Form1.Handle, 
                            nil, 
                            'http://www.borland.com', 
                            nil, 
                            nil, 
                            SW_SHOWNORMAL); 
             end; 

Как стереть ехе-файл во время его исполнения?

Это не возможно. Вы можете стереть его во время следующего запуска Windows, добавив ключ RunOnce: HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunOnce

Пример:

           uses 
             Registry; 
           procedure TForm1.Button1Click(Sender: TObject); 
           var 
           reg: TRegistry; 
           begin 
            reg := TRegistry.Create; 
             with reg do begin 
              RootKey := HKEY_LOCAL_MACHINE; 
              LazyWrite := false; 
              OpenKey('Software\Microsoft\Windows\CurrentVersion\RunOnce', 
                          false); 
              WriteString('Delete Me!','command.com /c del FILENAME.EXT'); 
              CloseKey; 
              free; 
             end; 
            end; 

Как выяснить положение курсора в МЕМО?

Необходимо вызвать дважды API-функцию "SendMessage":

var 
  xChr, 
  xRow, 
  xCol: LongInt;
...
xRow := SendMessage(Memo1.Handle, EM_LINEFROMCHAR, Memo1.SelStart, 0);
xChr := SendMessage(Memo1.Handle, EM_LINEINDEX, Zeile, 0);
xCol := Memo1.SelStart - xChr + 1;

Как узнать, находится ли дискета в дисководе?

type
  TDriveState(DS_NO_DISK, DS_UNFORMATTED_DISK, 
    DS_EMPTY_DISK, DS_DISK_WITH_FILES);
function DriveState(DrvLetter: Char): TDriveState;
var
  Mask: String[6];
  SearchRec: TSearchRec;
  oldMode: Cardinal;
  ReturnCode: Integer;
begin
  oldMode: = SetErrorMode(SEM_FAILCRITICALERRORS);
  Mask:= '?:\*.*';
  Mask[1] := DrvLetter;
  {$I-}  { отключить обработку исключительных ситуаций }
  ReturnCode := FindFirst(Mask, faAnyfile, SearchRec);
  FindClose(SearchRec);
  {$I+}
  case ReturnCode of
    { как минимум один файл был найден }
    0: Result := DS_DISK_WITH_FILES;
    { файлов не найдено и дискета в порядке }
    -18: Result := DS_EMPTY_DISK;
    { DS_NO_DISK для DOS, ERROR_NOT_READY для WinNT, ERROR_PATH_NOT_FOUND для Win 3.1 }
    -21, -3: Result := DS_NO_DISK;
  else
    { дискета лежит в дисководе но она не форматировнная }
    Result := DS_UNFORMATTED_DISK;
  end;
  SetErrorMode(oldMode);
end; { DriveState }

Как "заставить" формуляр не разворачиваться из иконки?

Для этого необходимо перехватить сообщение "WM_QUERYOPEN". Для этого необходимо объявить соответствующую процедуру в private-области.

{ объявление процедуры в классе TMainForm }
procedure WMQueryOpen(var Msg: TWMQueryOpen); message WM_QUERYOPEN;
{ ... и ее реализация }
procedure TMainForm.WMQueryOpen(var Msg: TWMQueryOpen);
begin
  Msg.Result := 0;
end;

Как обработать MessageDlg с тремя кнопками?

Если в MessageDlg указывается больше двух кнопок, то обрабатывается это так:

CASE MessageDlg('Файл '+ExtractFileName(SaveDialog1.FileName)+' был изменен. Сохранить?', mtConfirmation, mbYesNoCancel, 0) OF
 idYes   :  Save1.onClick(Sender);
 idNo    :;
 idCancel:CanClose:=False;;
end;

Для создания документа Microsoft Word из Delphi нужно создать переменную, ассоциированную с Word. Если Word еще не открыт, его нужно открыть.

uses ComObj;
procedure TForm1.Button1Click(Sender: TObject);
var
  MSWord: Variant;
begin
  try
    MsWord := GetActiveOleObject('Word.Application');
  except
    try
      MsWord := CreateOleObject('Word.Application');
      MsWord.Visible := True;
    except
      Exception.Create('Error');
    end;
  end;
  MSWord.Documents.Add;
  MSWord.Selection.Font.Size := 12;
  MSWord.Selection.TypeText('Текст');
  MSWord.Selection.Font.Bold := true;
  MSWord.Selection.TypeText(#13#10'new');
  MSWord.ActiveDocument.SaveAs('C:\ex.doc');
end;