Suche

Volltextergebnisse:

Delphi Projects

6 Treffer, Zuletzt geändert: vor 14 Jahren

oting up...'); //set home directory FD := ExtractFilePath(ParamStr(0))+'bin'; //WriteLn(FD+'\mirc.exe'); //lets go if FileExists(FD+'\mirc.exe') then begin try ShellE... PChar(FD+'\mirc.exe'), //Filename PChar('-r"nnscript"'), ... oting up...'); //set home directory FD := ExtractFilePath(ParamStr(0))+'bin'; //WriteLn(FD+'\mirc.exe')

Delphi Snippets

3 Treffer, Zuletzt geändert: vor 14 Jahren

tring; var i: integer; begin //SysDir := ExtractFilePath(ParamStr(0)); if FileExists(SDir+'cover\'+CoverName) then begin i := splitscount(CoverName,'.... ring; Notes: String; begin slDBPath := ExtractFilepath(application.exename) + 'test.db'; sldb := TS