Subversion Repositories fastphp

Rev

Rev 29 | Rev 49 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 29 Rev 45
Line 14... Line 14...
14 
function GetWordUnderPos(AMemo: TSynEdit; Line, Column: integer): string;
 14 
function GetWordUnderPos(AMemo: TSynEdit; Line, Column: integer): string;
15 
function GetWordUnderCaret(AMemo: TSynEdit): string;
 15 
function GetWordUnderCaret(AMemo: TSynEdit): string;
16 
function MyVarToStr(v: Variant): string;
 16 
function MyVarToStr(v: Variant): string;
17 
function FileSystemCaseSensitive: boolean;
 17 
function FileSystemCaseSensitive: boolean;
18 
function HighColorWindows: boolean;
 18 
function HighColorWindows: boolean;
- 
 
 19 
function GetTempDir: string;
19 
 
 20 
 
20 
implementation
 21 
implementation
21 
 
 22 
 
22 
function GetDosOutput(CommandLine: string; Work: string = ''): string;
 23 
function GetDosOutput(CommandLine: string; Work: string = ''): string;
23 
var
 24 
var
Line 280... Line 281...
280 
 
 281 
 
281 
  result := ((dwMajorVersion = 5) and (dwMinorVersion >= 1)) or
 282 
  result := ((dwMajorVersion = 5) and (dwMinorVersion >= 1)) or
282 
            ((dwMajorVersion = 6) and (dwMinorVersion <= 1));
 283 
            ((dwMajorVersion = 6) and (dwMinorVersion <= 1));
283 
end;
 284 
end;
284 
 
 285 
 
- 
 
 286 
function GetTempDir: string;
- 
 
 287 
var
- 
 
 288 
  Dir: string;
- 
 
 289 
  Len: DWord;
- 
 
 290 
begin
- 
 
 291 
  SetLength(Dir,MAX_PATH);
- 
 
 292 
  Len:=GetTempPath(MAX_PATH, PChar(Dir));
- 
 
 293 
  if Len>0 then
- 
 
 294 
  begin
- 
 
 295 
    SetLength(Dir,Len);
- 
 
 296 
    Result:=Dir;
- 
 
 297 
  end
- 
 
 298 
  else
- 
 
 299 
    RaiseLastOSError;
- 
 
 300 
end;
- 
 
 301 
 
285 
end.
 302 
end.