equal
deleted
inserted
replaced
593 string(IPH_getDocumentsPath()) |
593 string(IPH_getDocumentsPath()) |
594 {$ELSE} |
594 {$ELSE} |
595 ParamStr(1) |
595 ParamStr(1) |
596 {$ENDIF} |
596 {$ENDIF} |
597 + '/debug' + inttostr(i) + '.txt'); |
597 + '/debug' + inttostr(i) + '.txt'); |
|
598 // f:= stderr; |
598 rewrite(f); |
599 rewrite(f); |
599 if IOResult = 5 then |
600 if IOResult = 5 then |
600 begin |
601 begin |
601 // prevent writing on a directory you do not have permissions on |
602 // prevent writing on a directory you do not have permissions on |
602 // should be safe to assume the current directory is writable |
603 // should be safe to assume the current directory is writable |