[펌글] 델파이 프로그램 한번만 실행시키기
절름발이 프로그래머/Delphi / 2009. 5. 2. 21:52
http://www.zetblog.net/Zcontent_view.php?idx=2682&category_idx=62
출처 : http://www.zetblog.net/?0026820062
아래 소스중 빨간부분을 추가하면 프로그램을 중복실행시 한번만 실행하게 할수
있습니다.
program Project1;
uses
Forms,Windows,Dialogs,
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
begin
Application.Initialize;
CreateFileMapping ( $FFFFFFFF, nil, PAGE_READWRITE, 0,1024, 'SharedExists' );
if GetLastError=ERROR_ALREADY_EXISTS then
begin
ShowMessage('현재 프로그램이 실행중입니다.');
halt;
end;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
출처 : http://www.zetblog.net/?0026820062