Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program SO22990909;
- {$APPTYPE CONSOLE}
- uses
- SysUtils;
- const
- STR_SYSNATIVEPATH = 'c:windowssysnative';
- STR_SYSTEM32PATH = 'c:windowssystem32';
- STR_DETECTFILE = 'wups2.dll';
- procedure CheckFile(Filename : String);
- begin
- if FileExists(Filename) then
- Writeln(Format('file %s found', [Filename]))
- else
- Writeln(Format('file %s not found', [Filename]));
- end;
- begin
- try
- CheckFile(STR_SYSTEM32PATH+STR_DETECTFILE);
- CheckFile(STR_SYSNATIVEPATH+STR_DETECTFILE);
- except
- on E: Exception do
- Writeln(E.ClassName, ': ', E.Message);
- end;
- ReadLn;
- end.
- c:windowssyswow64testfile.dll
- FileExists('c:windowssystem32testfile.dll')
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement