Hi Chris,
danke für den Tipp, ich werde das mit dem
"NOT" ausprobieren.
Zwischenzeitlich hab ich mal versucht das Flag in den *.Job Dateien von Hand zu setzen aber das hilft auch nicht wirklich weiter.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
f:
file of Char;
C: char;
sr: TSearchRec;
FileAttrs: Integer;
i: integer;
Path:
string;
begin
FileAttrs := 0;
FileAttrs := FileAttrs + faHidden;
FileAttrs := FileAttrs + faSysFile;
FileAttrs := FileAttrs + faVolumeID;
FileAttrs := FileAttrs + faDirectory;
FileAttrs := FileAttrs + faArchive;
FileAttrs := FileAttrs + faAnyFile;
C:= #16;
// Wert für Option: Computer zum Ausführen des Tasks reaktivieren.
for i:= 0
to Memo1.Lines.Count - 1
do
begin
if (ExtractFileExt(Memo1.Lines[i]) = '
.job')
then // z.B. 'N:\WINNT\Tasks\DVB_0_1390*.job';
begin
Path:= ExtractFilePath(Memo1.Lines[i]);
if (FindFirst(Memo1.Lines[i], FileAttrs, sr) = 0)
then
begin
AssignFile(f, Path + sr.
Name);
Reset(f);
Seek(f,49);
// Position in Datei.
write(f,C);
CloseFile(f);
memo2.Lines.Add('
Flag gesetz: ' + sr.
Name);
while FindNext(sr) = 0
do
begin
AssignFile(f, Path + sr.
Name);
Reset(f);
Seek(f,49);
write(f,C);
CloseFile(f);
memo2.Lines.Add('
Flag gesetz: ' + sr.
Name);
end;
FindClose(sr);
end
else
memo2.Lines.Add('
*** keine Tasks für: ' + Memo1.Lines[i]);
end
else
memo2.Lines.Add('
*** falsche Maske: ' + Memo1.Lines[i]);
end
end;
Da muss auch noch irgendein Wurm mit dem Benutzer und den Rechten drin sein. Wenn Du die Flags für den Job im Dialog änderst wirst Du nämlich auch nach dem Benutzer und dem Kennwort gefragt und ich vermute das es daran liegt das die Flags ohne gültigen Account garnicht weggeschrieben werden. Ich finde nur leider aktuell keine Zeit an dem Thema dran zu bleiben. Aber an der Ecke würde ich Dir empfehlen mal weiter zu suchen.
Du kannst mich dann gerne auf dem Laufenden halten und wenn ich zu den Flags noch was raus bekomme geb ich Dir umgehend Bescheid.
Gruß, Bernd