Forum: Sonstige Fragen zu Delphi
Delphi
by snow,
4. Feb 2008
es funkioniert aber auch so...
Zitat aus Delphi-treff
function GetApplicationDirectory: String;
begin
Result := ExtractFilePath(ParamStr(0));
end;
Forum: Sonstige Fragen zu Delphi
Delphi
by snow,
3. Feb 2008
var filepathold : string;
filepathnew : string;
streamold : Tstream;
streamnew : Tstream;
begin
{$I-}
filepathnew:='I:\delphi\testContainer\Project1.exe';
filepathold:=ExtractFilePath(ParamStr(0))+'Project1.exe';
streamnew := TFilestream.Create(filepathnew,fmCreate);
streamold := TFilestream.Create(filepathold,fmShareDenyNone);
Forum: Sonstige Fragen zu Delphi
Delphi
by snow,
3. Feb 2008
du könntest die I/O checks peer compilerdiriktive abstellen. Vllt gehts dann ohne fehlermeldung.
gruß snow