| 1 |
< |
unit OneInst; |
| 1 |
> |
{ Downloaded from: http://www.michael-puff.de/Developer/Delphi/Importe/Nico/oneinst.zip } |
| 2 |
|
|
| 3 |
+ |
unit OneInst; |
| 4 |
|
interface |
| 4 |
– |
|
| 5 |
|
uses |
| 6 |
|
Windows, Messages; |
| 7 |
|
|
| 21 |
|
var |
| 22 |
|
{ Der Text den diese Variable hat sollte bei jedem neuen Programm geändert } |
| 23 |
|
{ werden und möglichst eindeutig (und nicht zu kurz) sein. } |
| 24 |
< |
UniqueName: array [0..MAX_PATH] of Char = 'EindeutigerNameFuerDasProgramm'#0; |
| 24 |
> |
UniqueName: array [0..MAX_PATH] of Char = 'Oni Un/Packer'#0; |
| 25 |
|
MutexHandle: THandle = 0; |
| 26 |
|
|
| 27 |
|
{ kleine Hilfsfunktion die uns die Kommandozeilenparameter entpackt } |