Como não carregar .exe de 1 vez ?

para fazer o que você quer, use MUTEX.
Procure na net.. eu não tenho exatamente o que deve ser feito, mas sei que é isso...
não deve ser tão dificil..
valeu

Se você quiser executar uma única copia do aplicativo, o código de inicializacao do arquivo fonte do PROJETO pode ser escrito conforme segue:

program Project1;
uses
Forms,
Windows,
Dialogs,
Unit1 in ´Unit1.pas´ ;
{$R *.RES}
Var HprevHist : HWND;
begin
Application.Initialize;
HprevHist := FindWindow(Nil, PChar(´TheProgrammer´));
if HprevHist = 0 then begin
Application.Title := ´TheProgrammer´;
Application.CreateForm(TForm1, Form1);
Application.Run;
end else
MessageDlg(´Você não pode executar outra cópia do aplicativo´, mtInformation, [mbOK], 0);


Com esse código o usuário pode iniciar uma nova copia do aplicativo somente se não houver outra anterior. Caso contrario é exibido uma mensagem para o usuário.

Sabe o que eu fiz com este probleminha?

Ao clicar no icone do programa ao inves de chamar o exe, chama um .bat

Terei um arquivo auxiliar ´rede.txt´ (dentro pode ter qualquer coisa)

Programa.bat

if exist emuso.txt goto sair
copy rede.txt emuso.txt
nesta linha, chamar o .exe
del emuso.txt -- > ao terminar o exe, apagar o arquivo ´Emuso.txt´
goto Fim

:sair
cls
echo Este programa já está sendo executado!
pause
:fim