Как заблокировать повторный запуск программы
Как сделать shareware программу
Скопировать все файлы вместе с подкаталогами
Включение любого файла в EXEшник
Аналог функции DELAY (задержка)
Преобразование строки из DOS кодировки в Windows и обратно
//Под управлением Delphi не работает - только автономно!! procedure TForm1.FormCreate(Sender: TObject); var Wnd : hWnd; s: PСhar; buff: array [0..127] of сhar; copdata: TCopyDataStruct; begin Wnd := GetWindow(Handle, gw_HWndFirst); while Wnd <> 0 do begin {Если не собственное и не дочернее окно} if (Wnd <> Application.Handle) and (GetWindow(Wnd, gw_Owner) = 0) then begin GetWindowText(Wnd, buff, sizeof(buff)); {Если заголовок совпадает, то...} if StrPas(buff) = Application.Title then //Поторный запуск // ***** Действие при повторном запуске ******* end; Wnd := GetWindow(Wnd, gw_hWndNext); end; end;
Для этого надо воспользоватся файлом Ansi.pas. В нем описаны две функции: _OTA - перекодировка из DOS в Windows и _ATO - наоборот.