[Irenis]

Shift85, спасибо, попробую))

[Kashtan007]

Shift85, спасибо большое), а куда эту строку засунуть?

[Shift85]

куда эту строку засунуть? »

Kashtan007, Пример.

Код:

FreeSpaceLabel:=TLabel.Create(WizardForm);
with FreeSpaceLabel do begin
  
  Transparent:=True;

end;

[Kashtan007]

Shift85, прости что достаю, но я никак не пойму куда эту запихнуть? Уже везде в коде пробовал вставлять... одни ошибки.

[Shift85]

Kashtan007, Код скрипта покажи.

[Johny777]

Shkutu,

Нужно проверять, что директория, задаваемая пользователем является действительно валидной директорией (с буквой диска вначале или в форме UNC)»

http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx

[Shkutu]

Johny777, спасибо, похоже то, что надо. А может еще подскажете, как этим правильно пользоваться? Там просто параметр - это вроде указатель. Пробовала объявлять функцию как

Код:

function PathFileExists(Path: pansichar): boolean; 
    external 'PathFileExists@Shlwapi.dll stdcall delayload';

В этом случае ругается на "could not call proc". Обычных указателей типа pointer в инно нет, насколько я знаю, и просто запихать в параметр строку (хотя по факту она и указатель), тоже нельзя.

[Johny777]

Shkutu, И правильно ругается. Т.к. в библиотеке нет имени функции под названием "PathFileExists".
дело в том что все WINAPI функции и процедуры где во входных аргументах есть "строка" функция задаётся двумя типами:
имя_функцииW - сокр. Wide - стока символов в который каждый символ лежит в Word-е
имя_функцииA - сокр. Ansi - стока символов в который каждый символ лежит в Byte-е
PWideChar, PAnsiChar - типизированный указатель на первый байт строки.
сама по себе типизация - это приблуда языков для упрощения адресной арифметики,
скажем адрес первого байта 1000000 и он лежит в переменной типа типизированного указателя P: PWideChar
получаешь значение по адресу в P так: P^
чтоб получить след. символ нужно прибавить к P единицу ( P + 1 ). При этом числовое значение указателя становится 1000002 тк SizeOf(WideChar) = 2 байта,
Те компилятор знает благодаря типизации на сколько байт нужно сместиться
можно и так NativeUInt(P) + SizeOf(WideChar)

в PAnsiChar смещение (или шаг) на 1 байт соответственно


при это String это самый обычный указатель
попробуй если интересно в нормальном языке сделать так:

читать дальше »

Код:

program Project3;

{$APPTYPE CONSOLE}

uses
    SysUtils;

var
    s: AnsiString = 'abc';

begin
    WriteLn( NativeUInt( s ), #32#32, NativeUInt( PAnsiChar(s) ), #32#32, NativeUInt( @s[1] ) );
    WriteLn( PAnsiChar( s )^, #32#32, s[1] );

    ReadLn;
end.

и ты увидишь что и адреса и символы равны

если мне память не изменяет, то в Ansi версии инно все String по дефолту AnsiString , а в юникодной версии WideString
и так как мы выяснили что (Wide/Ansi)String = P(Wide/Ansi)Char = Pointer, то канает следующее:

читать дальше »

Код:

#ifdef UNICODE
    function PathFileExists( pszPath: String ): BOOL;
      external 'PathFileExistsW@Shlwapi.dll stdcall delayload';
#else
    function PathFileExists( pszPath: String ): BOOL;
      external 'PathFileExistsA@Shlwapi.dll stdcall delayload';
#endif

procedure InitializeWizard();
begin
    if PathFileExists( 'C:\Program Files (x86)\OpenAL' ) then
        MsgBox('Ok', mbInformation, MB_OK)
    else
        MsgBox('Error', mbInformation, MB_OK);
end;

[Irenis]

1- В папку packeddata закиньте файлы какие необходимо сжать. 2- Запустите lzma.bat. 3- В папке data получите готовый архив. »

Еще раз спасибо, получилось Теперь при распаковке не зависает))
А можно поинтересоваться, как это вы так сделали? Как оно работает?

[Nordek]

Irenis, Документация на FreeArc 0.40