Mega Code Archive

 

Categories / Delphi / System

 

Programin bir kez calistirilmasini saglamak

{ Proje kaynak koduna asagidaki kodu ekleyin } { Kaynak koda ulasmak icin Project|View Source} CreateMutex(nil,FALSE,'PROGRAMADI'); if GetLastError = ERROR_ALREADY_EXISTS then begin ShowMessage('Program calismakta.'); Halt(0); end; { Application.Initialize; Application.CreateForm(....... ... ... }