Gutter
Submit a Snippet
Search Snippets
New Snippets
Top Snippets


Tag PHP (137)
Tag JavaScript (125)
Tag Java (66)
Tag VBSCRIPT (58)
Tag String (44)
Tag CSS (31)
Tag CSharp (28)
Tag File (28)
Tag HTML (27)
Tag mysql (25)
Tag C (24)
Tag VB.NET (24)
Tag python (24)
Tag CPlusPlus (23)
Tag groovy (23)

Snippet PHP/MySQL impleme...
Snippet Analyte - Easy to...
Snippet Easy SQLite inter...
Snippet Very lightweight ...
Snippet AutoComplete plug...
Snippet AutoComplete plug...
Snippet Connection Java -...
Snippet View PostgreSql
Snippet Store Procedure
Snippet Pygame - Simple p...

Venture Capital Jobs
Gutter
Gutter
Beginner me
Helper jamesmcm
Beginner Can
Beginner Kelmi
Beginner ysg
Beginner dannymo2
Beginner chorny
Helper wallie
Beginner Hackdemian
Beginner impomatic

Syntax Master dannyboy
Syntax Master sundaramkumar
Coder mattrmiller
Scripter Pio
Scripter i_kenneth
Scripter ASmith
Scripter ctiggerf
Scripter sehrgut
Scripter bertheymans
Scripter SCoon
Gutter
Navigation Home / Snippets / Get Program Directory

Get Program Directory



snippet | revisions | comments | related | Add to Favorites | email

download | print | blog it


2
Date Submitted Tue. Mar. 6th, 2007 12:31 PM
Revision 1 of 1
Beginner ido
Tags Delphi | Folder
Comments 0 comments
This code return program directory.


function TForm1.GetProgramDir:string;
var s:string;
begin
  s:=Paramstr(0);

  while pos('\',s2)<>0 do
  begin
    result:=result+copy(s2,1,pos('\',s2));
    delete(s2,1,pos('\',s2));
  end;

end;

 

Alex Popov

Comments

New Comment New Comment

There are currently no comments for this snippet.

New Comment New Comment

Voting

Votes Down


Helper lolfejs