[Delphi] Wiem ?że to pewnie było ...

1. Wiem że już pewnie nie jedna osoba sie o to pytała ale jak pobrać lokację własnego programu.

2. Jak pobrać litery lokalnych partycji?
   TIA

<email>[email protected] </email>
GG# 4104716

1. Wiem że już pewnie nie jedna osoba sie o to pytała ale jak pobrać lokację własnego programu.

Application.ExeName

A sam katalog: ExtractFileDir(Application.ExecName) - bez ""
lub ExtractFilePath(Application.ExecName) z "" na końcu

skoro wiesz że już ktoś o tym pisał to poszukaj w archiwum :-)

skoro wiesz że już ktoś o tym pisał to poszukaj w archiwum :-)

tylko czasem przez debilne tytuly ciezko znalezc - znam z autopsji :-8

AD 2 masz w FAQach

2. Jak pobrać litery lokalnych partycji?
   TIA

Nie wiem co to to TIA ale jak chciałbyś np. wyświetlić w Lisbox'sie
lokalne dyski to możesz posłużyć się takim kodem:

var
drive : char;
begin
for drive := 'A' to 'Z' do
case GetDriveType(PChar(drive + ':')) of
DRIVE_UNKNOWN: ListBox.Items.Add(drive + ' - Nieznany');
DRIVE_REMOVABLE: ListBox.Items.Add(drive + ' - Stacja dysków');
DRIVE_FIXED: ListBox.Items.Add(drive + ' - Dysk lokalny');
DRIVE_REMOTE: ListBox.Items.Add(drive + ' - Dysk sieciowy');
DRIVE_CDROM: ListBox.Items.Add(drive + ' - CD-ROM');
DRIVE_RAMDISK: ListBox.Items.Add(drive + ' - Ram-disk');
end;
end;

Można także użyc ParamStr(0) który zwraca pełną ścieżkę i nazwę pliku z rozszerzeniem. :d

Nie wiem co to to TIA ale jak chciałbyś np. wyświetlić w Lisbox'sie
lokalne dyski to możesz posłużyć się takim kodem:

TIA Thanks in Advence - Dzięki z Góry

A jak pobrać samą ilość partycji bez literek?

Można także użyc ParamStr(0) który zwraca pełną ścieżkę i nazwę pliku z rozszerzeniem. :d

type
TApplication = class(...)
...
function GetExeName: string;
...
public
...
property ExeName: string read GetExeName;
...
end;

...

implementation

...

function TApplication.GetExeName: string;
begin
Result:=ParamStr(0)
end;

Wniosek??
Application.ExeName = ParamStr(0)