Search

Fulltext results:

Delphi Projects

6 Hits, Last modified: 13 years ago

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 Hits, Last modified: 13 years ago

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