[lazarus] Not be opened

[Luis R. Hilario B.]

Mattias Gaertner wrote:

>On Sat, 18 Jan 2003 18:49:26 -0400
>"Luis R. Hilario B." <LuisDigital at BonBon.net> wrote:
>
>  
>
>>Luis R. Hilario B. wrote:
>>
>>    
>>
>>>Mattias Gaertner wrote:
>>>
>>>      
>>>
>>>>On Fri, 17 Jan 2003 21:04:41 -0400
>>>>"Luis R. Hilario B." <LuisDigital at BonBon.net> wrote:
>>>>
>>>> 
>>>>
>>>>        
>>>>
>>>>>Hello,
>>>>>
>>>>>Using TFileStream.Create or LoadFromFile, produces an error:
>>>>>
>>>>>An unhandled exception occurred at 0x080DB1B3 :
>>>>>File filename can not be opened
>>>>>0x080DB1B3 of lclstrconsts.pas
>>>>>          
>>>>>
>>>>>Mystery of Lazarus.
>>>>>From a terminal it works well, but using the Menu: Run - Run, does 
>>>>>not work nor using an explorer doing click (konqueror for example.).
>>>>>  
>>>>>          
>>>>>
>
>Your program opens the file in the current directory, which is set by
>Konqueror (Probably to your home directory).
>
>Use something like:
>
>procedure TForm1.Form1CREATE(Sender: TObject);
>begin
>  SetCurrentDir(ExtractFilePath(ParamStr(0)));
>
>  
>
Yes works! Thanks, many thanks.