Janilabo Posted May 22, 2012 Share Posted May 22, 2012 For getting the data from file. Small example included.. GrabFileData [scar]function GrabFileData(FileName: string): string; var f: Integer; begin if not FileExists(FileName) then Exit; f := OpenFile(FileName, False); ReadFileString(f, Result, FileSize(f)); CloseFile(f); end; begin ClearDebug; WriteLn(GrabFileData(Replace(AppPath, 'bin\', '') + 'license.txt')); end.[/scar] Quote Link to comment Share on other sites More sharing options...