Delphi, Asm, C, WinAPI, PHP, ..., FAQ |
Добро пожаловать, гость ( Вход | Регистрация )
Delphi, Asm, C, WinAPI, PHP, ..., FAQ |
-=CHE@TER=- |
Jan 5 2007, 00:35
Сообщение
#1
|
Walter Sullivan Группа: Root Admin Сообщений: 1,361 Регистрация: 4-February 08 Пользователь №: 3 Спасибо сказали: 314 раз(а) |
Delphi programs in API.
На английском. Очень подробно всё описано, плюс есть исходные коды готовых юнитов. Например SmallUtil, в котором есть все частоиспользуемые подпрограммы, и который в размере меньше, чем SysUtils (автор так утверждает - я не проверял). |
-=CHE@TER=- |
Jun 1 2010, 17:46
Сообщение
#2
|
Walter Sullivan Группа: Root Admin Сообщений: 1,361 Регистрация: 4-February 08 Пользователь №: 3 Спасибо сказали: 314 раз(а) |
Иногда бывает надо при распаковке игровых архивов попутно создавать необходимые каталоги.
Например для файла: DATA\TEXTURES\ENVIRONMENT\SKY_01.TGA их нужно создать аж 3 штуки. Вот небольшие куски кода на Delphi и C для таких вещей. Обрабатываются обе косые черты. В обоих случаях идентификатор S не должен являться константой. CODE For I:=1 To Length(S) Do If ((S[I] = '\') Or (S[I] = '/')) Then Begin CreateDirectory(PChar(Copy(S, 1, I - 1)), Nil); { Delphi понимает только слэш } S[I]:='\'; End; CODE char *s; ... s = filenamepath; while(*s){ if((*s == '\\') || (*s == '/')){ *s = 0; mkdir(filenamepath); /* а C понимает только такой */ *s = '/'; } s++; } Спасибо сказали:
|
Упрощённая версия | Сейчас: 6th October 2024 - 04:14 |