Re:Easy question (I think!)
Shawn Halfpenny wrote in article <5sgntg$4p...@storm.cycor.ca>...
Quote
>Hello all..
> I wish to be able to determine within my program's code, which
>directory my program resides in. In other words, if I have my program in
>C:\TEMP and am running it from that directory, is there a command in
>Delphi that will return that directory, ie. C:\TEMP.
> The reason for all this is that I want to create some output files and
>have them written to the same directory that my program resides in.
> All and any help is most appreciated!
>Cheers,
> Shawn Halfpenny
> az...@auracom.com
You can use the following function:
Function RunDir:String;
{ This function returns the Directory your application
is ran from which includes the final '\' }
var
St : String;
Begin
St := ParamStr(0);
While St[Length(St)] <> '\' do
Delete(St, Length(St), 1);
RunDir := St;
End;
I know there is a function for extracting the directory from a file path,
but it is different between Delphi 16 bit and 32 bit. This works on both
versions.
------------------------------------------------------
Donald Johnson bin...@computerbargain.com
Binary Engineers Software Developer
http://www.computerbargain.com/binary
