also ich hab folgende idee...
1 programmstart form1.caption:='myprogramm';
dann prüfen ob mehrfachstart vorliegt
2,3,4,5,6 form1.caption:='xxxxxxxxx';
dann einfach an 'myprogramm' senden...
geht das so ?
irgendwas stimmt am source aber nicht...
Code:
procedure TForm1.FormShow(Sender: TObject);
begin
if ParamCount > 0 then begin
Form1.Caption:= 'myprogramm';
mHandle := CreateMutex(nil,True, 'myprogram_45zg556z5g43');
Memo1.Lines.Add(SysErrorMessage(GetLastError)); // das funktioniert
if GetLastError=ERROR_ALREADY_EXISTS then begin // das funktioniert nicht
Form1.Caption:= 'xxxxxxxxx';
end;
end;
was stimmt da nicht ?